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Put  yourself  in  the  pilot's  seat  of  a  Piper  181  Cherokee  Archer  for  an  awe-inspiring  flight  over  realistic  scenerj 
from  New  York  to  Los  Angeles.  High  speed  color-filled  3D  graphics  wilt  give  you  a  beautiful  panoramic  vie\| 
as  you  practice  takeoffs,  landings,  and  aerobatics.  Complete  documentation  will  get  you  airborne  quickly  I 
even  if  you've  never  flown  before.  When  you  think  you're  ready,  you  can  play  the  World  War  I  Ace  aerial  battlej 
game.  Flight  Simulator  II  features  include  ■  animatefl  color  3D  graphics  ■  day,  dusk,  and  night  flying  model 
■  over  80  airports  in  four  scenery  areas:  New  York,  Chicago,  Los  Angeles,  Seattle,  with  additional  scenery 
areas  available  ■  user-variable  weather,  from  clear  blue  skies  to  grey  cloudy  conditions  ■  complete  flight 
instrumentation  ■  VOR,  ILS,  ADf^  and  DME  rad|d  equipped  ■  navigation  facilities  and  course  plotting  ■  World 
War  I  Ace  aerial  battle  game  ■  complete  information  manual  and  flight  handbook. 


See  your  dealer . . . 

or  write  or  call  for  more  information.  For  direct  orders  please  add  $1 .50  for 
shipping  and  specify  UPS  or  first  class  mail  delivery.  Amerii^an  Express,  Diner's 
Club,  MasterCard,  and  Visa  accepted. 

Order  Line:  800/637-4983 
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Corporation 

713  Edgebrook  Drive 
Champaign  IL  61820 

(217)  359-8482  Telex:  206995 


LOTSABYTES  CONTINUES  THE  WAR  ! 

WAR  on  high  prices  !  We're  going  to  put  an  end  to  the  software  price  ripoff.  And  YOU 
can  help  !  Just  l<eep  those  orders  coming  while  you  continue  to  enjoy  the  quality, 
quantity,  selection  and  low  prices  that  you  deserve.  Our  National  Public  Domain  Copy 
Service  will  save  you  time,  tedious  work,  and  money.  And  our  exclusive  distribution  of 
sharply  discounted  commercial  programs  will  bring  you  some  of  the  finest  programs  for 
the  lowest  possible  price,  usually  50%  and  more  off  retail!  You  continue  to  get  FREE 
BONUSES  with  each  purchase  of  three  or  more  disks. 
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LoisaBytes 

EXCLUSIVES 

ADVANCED 
MUSICSYSTEM  II 

by  LEE  ACTOR 
Allows  you  (0  create  music 
with  your  Atari  computer! 
All  new  machine  code. 
'  Control  over  pitch 

duration,  envelope 

dynamic  level,  meter. 

lempo  and  key. 

■  4  independent  voices 

•  51/2'Octaves  per  voice 

•  Save  up  to  8200  notes 
"  CListom  DOS 

■  FULL  instructions 

•  24K  disk 
Oiiginally  S29.95  Only  $14.95 

ORIGINAL  ADVENTURE 

/)/  Bob  Howell 
For  all  Atari  computers. 
The  Original 
Colossal  Cave 
Adventure  laithfully 
reproduced  from  the 
main-frames'- 
This  IS  the  one 
that  launched  the  whole 
Adventure  craze  of  today 
'  Two  mazes 

■  130  rooms 
'  Deadly  Dragons 

■  Nasty  Dwarves 

■  Tenacious  Troll 

■  The  Pirate  &  IWore! 

•  86  coded  hints 

■  SAVE  RESUfViE 

•  40K  disk  or  32K  tape 
OriginaMy  S24  95  Only  S14.95 


QUALITY  WORD  PROCESSING 

ESI  WRITER!  At  last  a  brand-new  Word  Processor 
that  has  more  features  and  is  easier  to  use  than 
anything  else  available  for  the  Atari.  Easy  for  the 
beginner  to  use,  it  asks  questions  and  remembers 
the  answers.  ESI  WRITER  is  so  sophisticated  that  it 
has  many  more  features  we  don't  even  have  room  to 
mention  !  Works  with  ANY  Atari 

*  Reads  any  text  file      *  Built  in  Help  screen 
■  Very  fast !       *  Works  with  ANY  printer 

*  Instant  top,  bottom  or  text  location 

without  scrolling! 
*  Every  printer  feature       '  DISK  ONLY  (Any  Atari) 

*  Search  and  replace       *  Block  move  text 
"Page  eject/start       *  Set  margins/lines  etc. 

'Full  justification       *  Print  headers  etc. 

*  Block  delete  etc.       *  Change  video  color 

*  Over  50  pages  of  docs  and  tutorials 
TRUST  US  ON  THIS  ONE!   YOU  WILL  LOVE  IT! 
Originally  S49.95  LoisaBytes  price  $19.95 

*  *  FREE  BONUSES  *  ' 

Now  for  each  3  disks  ordered 
you  may  choose  any  1  of  the  following  disks 

FREEH 
...  buy  3  -  get  1,  buy  6  -  get  2,  buy  9  get  3  ... 

a.  The  Atari  XL  TRANSLATOR  DISK 
that  enables  XL  owners  to  use  most 
400/800  software.  FREE!! 

—  or  — 

b.  An  all  different  AN/IS  IvlUSIC  disk 
with  Player.  FREE!! 

—or  — 

c.  Your  choice  of  one  of  the  P.D.  disks  -- 
#1,  #2,  #3,  #4,  #5,  #6,  #7,  #8, 
#9,  or  #10  (specify  one)  FREE!! 


MUSIC  MAJOR! 


Learn  the  basics  of  music  with  this  light- 
hearted  but  very  thorough  approach. 
Covering  such  topics  as  note  recognition, 
key  signatures,  note  counting,  and  much 
more,  it  is  designed  for  use  t)y  both  the 
individual  student  and  music  class. 
This  program  includes  a  thoroughly 
illustrated  manual  and  offers  a  QUIZ 
IVIASTER  utility  that  allows  the  teacher  or 
the  self-taught  student  to  create  their  own 
A-B-C-D  type  tests,  with  a  sample  quiz 
included. 
Originally  $39.95  Only  $14.95 


GREAT  GAMES! 

SPACE  GAMES:  Three  games  for  one  low 
price!..  In  Aliens  you  can't  get  them  all  and 
the  pace  keeps  getting  faster.  When  you 
do  get  rid  of  most  of  them,  you  are  left  in  a 
space  quadrant  peppered  with  mines.  Will 
you  Survive?  If  you  do,  you  must 
penetrate  the  alien's  spaceship,  survive  a 
Robot  Attack,  and  get  back  your  stolen 
'cloaking'  device!  Interested? 
$24.95  list  LoisaBytes  price:  $9.95 

THE  BEAN  MACHINE  by  Steve  Robinson 
is  an  Award  Winning  Arcade  game  that 
will  drive  you  crazy  balancing  a  series  of 
beams  while  trying  to  get  all  the  beans  to 
roll  down,  without  touching,  all  the  while 
avoiding  'strange  creatures'  who  drop  in 
to  steal  the  beans.  It's  addicting! 
$24.95  list  LoisaBytes  price:  $9.95 

DIGGERBONK,  another  Award  Winning 
game  by  Steve  Robinson,  challenges  you 
to  find  your  way  through  a  continuously 
scrolling  maze  while  avoiding  some  really 
strange  creatures.  Along  the  way  you  will 
need  to  Bonk  some  of  them,  but  watch  out 
for  the  bombs, 
$24.95  list  LoisaBytes  price:  $9.95 

GUESS  WHAT'S  COMING  TO  DINNER 

lets  you  try  to  manuever  a  snake  through  7 
levels  if  you  can  keep  it  from  starving  or 
being  electrocuted.  Lots  of  surprises!  One 
or  two  players. 
$24.95  lisl  LoisaBytes  price:  $9.95 


CREATIVE  LEARNING 
ADVENTURES 

Ages  4  to  10  —  D/s/t  only 

1.  Hours  of  educational  fun  playing  3 
exciting  creative  adventures  with  a 
friendly  alien  learning  about  our  planet 
Earth.  Hand/eye  co-ordination,  drawing, 
and  music  skills  are  emphasized. 
$24.95  list  LoisaBytes  price:  $12.95 

2.  Four  challenging  learning  games  that 
are  the  favorites  of  our  friendly  alien. 
Helps  your  child  to  develop  logical 
reasoning  ability. 

$24.94  list  LoisaBytes  price:  $12.95 

3.  These  3  Fun-Day  learning  games  will 
help  with  intellectual  development, 
hand/eye  co-ordination,  logic,  spatial, 
and  analytical  abilities. 

$24.95  list  LoisaBytes  price:  $12.95 


LotsaBytes 


Full  100".  Replacemenl  guaranlee.Any  disk  (ound  lo  be  detective  will  be  replaced  Iree  and  we  will  also  refund 
your  return  postage.  All  orders  shipped  by  First  Class  U.S.  Mail.  Add  SI  .95  shipping  and  handling  for  lto5  disks. 
Add  S2.95  lor  6  to  12  disks.  California  residents  add  6"-.  sales  tax.  Outside  of  U.S.A.  and  Canada  add  15='o.  U.S. 
Funds  only  We  accept  checks  or  Money  Orders.  Sorry,  no  COD  or  Charge  Cards.  Allow  ihree  weeks  lor  personal 
checks  lo  clear, 

15445  Ventura  Blvd.,  Suite  10G,  Sherman  Oaks,  CA  91413 
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your  area. 


Tlic  Home  Accountant  hardware  requiremc-nts:  48K  Atari  800/800XL,  one  or  two  disk  drives,  printer  (132  Col.  optional) 
The  Home  Accountant  is  a  registered  trademark  of  Arrays,  Inc./Continental  Software.  Atari  is  a  registered  trademark  of  Atari.  Inc. 
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Type-in  "music  construction"  software                                        TYPE-IN  SOFTWARE 
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BEATING  THE  ZURK  BLUES 

I've  been  having  problems  typing  in  line 
5000  of  "Zurk"  (March  1985).  Please  help 

Douglas  Hiatt 

Largo,  FL 
Line  5000  contains  the  phrase 
"SET  1= LI*  2 56".  We  are  going  to  assume 
here  that  you  'w  using  the  BASIC  XL  car- 
tridge from  O.S.S.  This  BASIC  is  more 
powerful  than  Atari  BASIC  and  has 
several  extra  commands.  One  of  these 
commands  is  SET  and  thus,  it  cannot  he 
used  as  a  variable  without  special 
precautions.  Seepage  131  of  your  BASIC 
XL  manual  on  this.  "ZURK"  runs  as 
published  and  should  ivork  in  BASIC  XL 
if  you  change  all  the  SETs  to  some  other 
variable  name.—AHJK  ED 

TYPO  II  TYPO  

TYPO  II  Oaniuii)'  1985)  does  not  work  on 
my  1200  XL.  It  doesn't  accept  the  SET 
commands.  Any  suggestions? 

Mary  Mitcham 
Houston,  TX 
The  original  instructions  in  "How  to  use 
TYPO  11"  read  "BASIC  XL  cartridge 
owners    type    SET   5,0",  etc.  We  have 
subsequently  cleared  up  the  wording. 
-ANTIC  ED 

SOME  THOUGHTS  ON  AL 

In  most  issues  of  Antic,  there  are  type-in 
programs  listed  in  BASIC  as  well  as  in 
assembly  language.  I've  spent  many  hours 
typing  in  AL  programs  and  found  that 
none  worked.  In  particular,  I've  had  prob- 
lems with  "Keyboard  Coinmander", 
(March  1985).  Can  you  help  me? 

Henry  Jennings 

Detroit,  MI 
If  the  AL  listing  is  an  addendum  to  a 
BASIC  program,  it's  printed  pritnarily  as 
a  study  example  for  serious  AL  program- 
mers. Unlike  BASIC,  machine  language 
is  unforgiving.  One  mistyped  bit  of  code 
and  your  computer  will  lock  up. 

"Keyboard  Commander"  loads  into 
Page  Six.  So  does  MAC/65.  Unfortunate- 
ly there  is  only  room  for  one  program 
in  Page  Six,  and  the  big  orange  super- 
cartridge  is  not  about  to  let  it  be 
"Keyboard  Commander". 


"Keyboard  Commander"  will  run  on 
Atari  Assembler  Editor,  Atari  BASIC  and 
ACTION!.  It  will  not  run  on  MAC/65 
unless  you  relocate  the  corfe— ANTIC  ED 

OKIMATE  10  REVISITED 

1  think  that  your  comments  on  the  Oki- 
mate  10  were  a  bit  harsh.  Perhaps  you  were 
using  the  wrong  type  of  paper  True, 
dumps  on  plain  paper  are  b;irely  readable. 
However,  I  used  black  on  white  dumps  on 
thermal  paper  (I  use  IBM  PC  Compact 
Printer  Paper,  #  150.^926).  For  color  prints, 
try  Scotch  501  Transparency  Film  for  Plain 
Paper  Copiers. 

Alan  Fillmore 
Bakersfleld,  CA 
Several  readers  have  suggested  that  we 
used  the  tvrong  type  of  paper  in  review- 
ing the  Okimate  10.  Well,  Antic  finds  it 
refreshing  to  be  considered  too  tough  on 
an  advertiser  for  a  change.  We  recognize 
that  some  readers  have  had  better  results 
with  that  printer  than  we  did. 

Wlien  we  revieived  the  Okimate  10,  we 
used  the  paper,  printhead,  printer  and 
ribbons  provided  by  the  Okimate  Cor- 
poration. We  followed  the  company's 
instructions — but  then  ivound  up  spend- 
ing most  of  a  workday  tinkering  with  the 
configuration  in  order  to  get  even  the 
slightly  improved  results  we  printed. 

We  assume  that  a  major  company 
would  ship  a  working,  pre-tested  piece  of 
equipment  to  assure  the  best  possible 
review.  If  we  were,  in  fact,  provided  with 
a  bad  printhead  that  we  didn  't  recognize 
at  the  time,  this  is  a  noteivortliy problem 
that  might  be  faced  by  anybody  purchas- 
ing the  printer— Am\C  ED 

OF  BITS  AND  BYTES 

What  is  so  special  about  the  number  256, 
as  in  10  PEEK  A(195)*256? 

Kevin  A.  Scott 
Algonquin,  IL 
The  highest  number  you  can  have  in  any 
one  address  is  256.  ybur  Atari  is  an  eight- 
bit,  binary  computer.  "Binar)>"  means  it 
only  understands  two  numbers,  0  and  1. 
These  numbers  are  called  "bits '.'  Eight  bits 
make  a  "byte"  and  the  maximum  dif- 
ferent combinations  of  eight  hits  is  256 
(0-255). 
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i/o  board 


Since  memory  is  nothing  but  a  se- 
quence of  byte  addresses,  and  ive  want 
to  reach  more  than  256  of  them,  we  put 
two  bytes  together  and  have  256  com- 
binations times  256,  or,  65,536. 

These  double-byte  numbers  are  called 
"words" and  the  two  bytes  that  make  up 
a  word  are  called  the  '  'low-byte  "and  the 
"high-byte".  When  the  low-byte  goes  be- 
yond 255  (remember  0-255)  it  returns  to 
zero  and  the  high-byte  is  lipped  by  one. 


This  means  that  each  unit  in  the  high  byte 
is  equal  to  256. 

Now  if ,  for  example,  the  high-byte  con- 
tains 2,  its  value  is  2  "256,  or  512. 

And  if  the  low-byte  contains  50,  the  two 
bytes  together  equal  562.  Wbrds  are  stored 
in  the  Atari  in  a  backwards  order  of  low- 
byte  followed  by  high-byte  If  the  number 
562  ivas  stored  in  locations  88  and  89, 
88  would  hold  50  atid  89  would  hold  2. 
The  formula  to  find  the  values  of  these 


help! 


two  locations  is:  WORD=PEEK(88)  + 
PE£K(89)*256-Am\C  ED 

BATTERJES  MOVES 

Batteries  Included,  publishers  of  PaperClip 
(reviewed  in  Antic  last  month)  moved  to 
30  Mural  Street,  Richmond  Hill,  Ontario, 
L4B  135  Canada.  However,  please  don't 
order  products  from  them  by  mail.   Q 


KWIK  DUMP 


TYPO  II  BONUS 


"Kwik  Dump  "  (Antic,  March  1985)  con- 
tains an  error  in  line  1070.  The  last  number 
in  that  line  should  be  27  instead  of  a  zero. 


THIEF 


Readers  are  having  problems  typing  in 
"Thief,  the  March  1985  Game  of  the 
Month.  The  game  does  run  as  published, 
but  if  your  TYPO  II  code  for  line  1105  is 
UK,  make  sure  that  the  inverse  [p]  in  that 
line  is  lower-case. 


WIDE  TEXT 


Bill  Morris's  "Wide  Text"  (Antic,  January 
1985)  cannot  print  a  double-width  [Z]. 
Substitute  these  lines  to  correct  this 
problem: 


In  the  assembler  listing: 
0680  CPV    «»27**8 

BVTES    TO    ft    LETTER 


;8 


In  the  BASIC  listing: 
CT     20130     DflTO     216.288,2 
13,185,8, 224 

S.A.M.  SOURCE  CODE 

The  assembly  language  listing  of  "S.A.M. 
Handler"  (Antic,  February  1985)  contiiins 
an  error  in  line  900.  LDY  $01  should  read: 
LDY  #01.  The  BASIC  listing  is  correct, 
however,  and  runs  as  published. 


E^er  since  our  improved  TYPO  II  program 
typing  proofreader  began  appearing  in 
January,  Antic  has  been  getting  letters  that 
ask  for  TYPO  II  codes  to  the  most  popular 
and  difficult  pre-1985  programs.  These 
will  be  in  the  issue  Next  Month! 

You'll  find  the  TYPO  II  line  codes  for 
the  four  most-requested  listings^'Biff- 
drop,"  "Escape  From  Epsilon,"  "Advent 
X-5"  and  "Adventure  Island."  And  we'll 
print  codes  for  more  Antic  golden  oldies 
if  we  get  enough  requests. 


CHECKED  100  TIMES 

I  typed  in  a  program  from  the  July  1984 
issue  and  it  still  doesn't  run.  I  checked  my 
listing  100  times  and  I  have  not  found  a 
typing  error.  I  also  checked  the  following 
issues  for  an  error  report  but  didn't  find 
one. 

H.  Reynaldos 

Miami,  PL 
T7)is  is  typical  of  many  letters  we  receive 
from  frustrated  readers  who  type  in  a 
program  only  to  find  it  does  not  run. 
They  may  check  it  many  times  and  when 
it  still  won 't  work,  the}>  naturally  suspect 
a  publishing  error 

Antic  does  make  mistakes,  as  you  can 
see  from  the  magazine's  Help!  items  and 
the  monthly  Error  File.  But  the  great 
majority  of  program  problems  come 
from  readers  mistyping  the  listing  or  mis- 
understanding the  instructions. 


If  you  are  having  pi'oblems  with  a  pro- 
gram that  was  published  more  than  three 
months  ago,  and  you  don't  see  a  correc- 
tion printed  in  either  Help!  or  Error 
File,  you  can  bet  the  error  is  on  your  end. 

That's  because  most  major  program 
problems  are  discovered  within  two 
weeks  of  publication!  But  due  to  the  long 
turnaround  time  for  four-color  national 
magazines,  the  sootiest  you  can  expect 
that  error  to  appear  in  Help!  is  two  issues 
later.  For  example,  a  Februarj'  error 
should  show  up  in  April's  Help! 

Pir)gram  ermts  which  appear  in  Help! 
are  transferred  the  following  month  to  the 
Error  File  ivhere  they  remain  for  ap- 
proximately six  months.  A  complete  in- 
dex of  all  Antic  errors  can  be  found  on 
our  ANTIC  ONLINE  service  on  Compu- 
Serve. 

We  test  all  programs  on  Atari  800s, 
1200XLS,  600XLS  and  800XLs  using  both 
cartridge  and  built-in  BASIC.  We  use 
Atari  810,  1050  and  Indus  GT  drives  with 
Atari  DOS  2.  OS,  single  density. 

Some  of  our  listings  are  more  difficult 
to  type  in  than  others.  If  you  are  just  start- 
ing, we  strongly  suggest  that  you  first  tty 
the  shorter  listings  and  avoid  the  frustra- 
tion of  typing  in  very  long  listings  with 
Atari  special  characters. 

When  using  TYPO  II,  be  careful  that 
you  have  typed  in  every  line.  It's  not  so 
hard  to  miss  one  entire  line  and  TYPO 
II  won 't  spot  it.  If  you  're  sure  all  the  lines 
are  there  and  the  program  still  won't  run, 
recheck  each  TYPO  II  line  code.  —ANTIC  ED 


June  1985 
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THE  #1  sysop 

Ron  Luks  of  SIG*ATARI 


by  MICHAEL  CIRAOLO, 
Antic  Associate  Editor 


Back  when  the  IBM  PC  had  just  come 
out  and  Ron  Luks  was  thinking  about 
buying  one,  a  friend  showed  him 
Atari's  classic  Star  Raiders  game.  Luks 
bought  an  Atari  to  play  with  while  he 
was  on  the  IBM  waiting  list.  As  it  turn- 
ed out,  he  never  bought  an  IBM  PC. 

Instead  Luks,  33,  became  the 
system  operator  (sysop)  of  SIG 'Atari 
on  CompuServe — the  world's  largest 
Atari  bulletin  board,  with  some  6,000 
enrolled  members. 

At  the  time  he  bought  his  Atari, 
Luks  was  a  stockbroker  and  money 
manager  who  traded  options  on  the 
American  Stock  Exchange.  Previous- 
ly he  had  taught  scuba  diving  in  Miami 
for  a  few  years.  "Fooling  around  with 
the  Atari  was  light  and  fun,  like  a  puz- 
zle, after  a  high-pressure  day  in  Wall 
Street,"  he  said. 

One  of  Luks's  first  peripherals  was 
a  modem.  "I  got  the  Hayes  Smart- 
Modem,  an  850  interface  and  the 
original  TeleLink  cartridge,  which 
came  with  a  CompuServe  Starter  Kit." 

EARLY  COMPUSERVE 

Back  then,  CompuServe  wasn't  pri- 
marily concerned  with  sponsoring 
special  interest  groups  (SIGs).  So 
when  Luks  first  logged  onto  the 
system,  he  "looked  all  over  for  the 
word  Atari."  It  wasn't  there.  Luks  then 
began  to  spend  time  in  the  Popular 
Electronics  magazine  online  edition. 
"In  those  days,  the  network  had  no 
online  sysops,  no  help.  It  was  like  a 


Once  you  read  this  latest  issue  of 
Antic,  log  onto  CompuServe  and 
type  GO  ANTIC — you'll  see  ;i 
preview  of  the  magazine's  NEXT 
issue!! 

In  the  ANTIC  ONLINE  prcvicv  , 
you'll  find  a  comprehensive  !■  .  ' 
al!  the  stories  and  program,'') 
next    Antic   Magazine — the  July 
<.x)mputer  C-hallenges  issue. 

You'll  even  find  a  major  excerpt 
or  two  from  the  upcoming  issue's 
featured  articles — such  as  our  Atari 
chess  software  tournament  or  our 
interview  with  the  boss  of  Strategic 
Simulations,  Inc. 

And  as  a  special  CompuServe 
bonus,  you  cart  rtnw  ciowntoad 
from  SIG* Atari  the  cor  '  '  ' 
gram  that  won  Antic'^ 


big  puzzle,"  Luks  said.  "I  kept  leaving 
messages — How  can  I  do  this?  Why 
can't  it  do  that?"  The  messages  were 
picked  up  by  the  sysop  about  once  a 
month. 

CompuServe  finally  collapsed 
under  Luks'  badgering.  "They  made 
me  an  assistant  sysop  and  gave  me  a 
free  flag,"  which  meant  he  would 
have  free  access  to  the  network.  This 
was  a  good  deal  for  a  man  who  had 
monthly  connect  bills  "approaching 
four  figures". 

FILLING  PCS-132 

One  thing  led  to  another,  and  Luks 


Cover  Contest.  This  scrolling  twi 
screen  picture  won't  be  on  the 
montlih'  Antic  Disk  until  next  issue, 
even  though  you'll  find  its  photo  in 
the  current  magazine,  lo  ci<)unl<j:id 
aUc.  tile,  type  DL4  at  the  SKi "Atari 
promjit.  '['liis  puts  you  into  Data 
Library  4,  where  BRO  WINNER,*  is 
what  you  type  next.  If  you're  using 
an  Xmodem  protocol  pn^rani  (such 
as  Homel'ak  or  Chameleon)  choose 
the  WINNER. XMO  file.  With 
rSC;OPE,  use  the  WINNER.BIN  file. 
ANTIC  ONLINE  special  bulletins 
may  be  downloaded  for  reprinting 
in  newsletters  of  users  groups  affili- 
ated with  the  Antic  Worldwide  l.iscrs 
Network,  Officers  of  Atari  usei-s 
,n  )ups  may  write  to  the  Antic  \X'l :  N 

oordination  for  details, 

_^ 

was  soon  allowed  to  set  up  an  Atari 
board.  "They  said  'There  are  some 
empty  pages  at  PCS-132'  and  I  got  to 
fill  them  up."  Luks  took  as  assistant 
sysops  a  few  of  the  most  active  mem- 
bers interested  in  Atari — such  as 
Michael  Reichmann  of  Batteries  In- 
cluded and  programmers  Steve  Ahl- 
strom  (SynFile  + ,  PaperClip)  and  Russ 
Wetmore  (Preppie,  HomePak). 

After  an  all-nighter  over  cappuc- 
cino in  Greenwich  Village,  Luks  came 
up  with  the  name  SIG  *Atari.  "It's  dif- 
ferent from  'the  Atari  SIG,'  the  'Radio 
Shack  SIG'  and  so  on.  Atari  is  a  word 
continued  on  page  19 
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For  Your  Atari  Computer 

TRS  80  Color  I,  III  &  4  •  Apple  •  Commodore  •  IBM  PC  Jr. 


Software 


the  Cost- 
Efficiency 
Test! 


For  computer  assisted  instruc- 
tion, our  software  more  than 
passes  the  test. ..it  EXCELS!  With 
over  1000  educational  programs 
designed  specifically  to  concen- 
trate learning  for  all  users,  from 
kindergarten  level  to  advanced  in- 
dividual studies,  from  slow  learn- 
ers to  exceptionally  bright  stu- 
dents, you'll  get  positive  results 
with  our  quality,  economically- 
priced  courseware. 


•  500  Programs  Available  for  TRS 
80  Color,  400  for  IBtJI  PC  Jr. 


Daily   Newsboy    Earni 


Dol  1-ars 
e-arned 


Joe      Dave      Ed      Can 


What  is  the  title  of  this  graph? 


daily  earnings 

of    newsboys 


boys  selling 
newspapers 


interactive 

Over  1000  Programs  with  Fu 

We're  Your  Educational 
Software  Source 


Tutorial  Programs 

II  Time  Audio  Narration,  Pictures  &  Text! 


Course 

Reading 

Mathematics 

Comprehension 

History 

Algebra 

Spelling 

Government 


No.  of  Programs 

256 
128 

48 

32 

16 

16 

16 


16  Programs  in  each  of  tfie  following: 

Carpentry  -  Electronics  -  Health  Services 

Office  Skills  -  Statistics  -  First  Aid/Safety 

Economics    -    Business    -    Accounting 

Psychology 

AND  MANY  MORE! 

Dealer  inquiries  welcome 


Atari  400/600/800/1200  computers  require  the  Atari  cassette  recorder  and  thffBoTS't* 
4001  Educational  Master  Cartridge,  $9.95.  Apple  II,  TRS  80 1,  III,  &  4,  and  Commodore  64 
computers  require  respective  conversion  kits  {plug-in  board  and  stereo  cassette 
player),  $99.00.  For  the  IBM  PC  Jr.  a  cassette  adapter  cable  and  a  good  cassette 
recorder  are  required.  A  Radio  Shack  CCR-81  or  CCR-82  is  recommended. 
$59.90  for  an  album  containing  a  16-program  course  (8  cassettes  with  2  programs,  each 
at  $3.75  per  program).  S8.80  for  a  2-program  cassette. 

Send  for  a  catalog  of  over  1000  programs  for  Atari.  TRS  80.  Apple,  etc. 
For  more  information,  or  to  order  call: 

TOLL  FREE  1-800-654-3871 

IN  OKLAHOMA  CALL  (405)  288-2301 

rm  DORSETT 

^^j^^  Educational  Systems,  Inc. 

Box  1226     Dept  A     Norman,  OK.     73070 


VISA' 


loso 


TURTLE  PIANO 


Easy  L030  keyboard  music 


A  simple  hut  adaptable  Logo  pro- 
gratn  that  plays  a  musical  scale  from 
the  Atari  keyboard.  Works  on  all 
Atari  computers  of  any  memoty  size. 
Disk  or  cassette. 


Children  love  to  sit  in  front  of  a  piano 
keyboard  and  pound  out  simple 
melodies.  The  child's  joy  comes  from 
immediate  success  at  making  music 
and  a  rare  chance  to  control  the 
environment. 

With  an  Atari,  Logo  and  just  a  few 
short  commands,  children  can  have 
the  same  kind  of  musical  fun  they 
would  have  with  a  piano,  but  with  a 
little  extra  learning  thrown  in. 

Turtle  Piano  converts  the  computer 
keyboard's  home  row — A,  S,  D,  F,  G, 
H,  J,  K,  L,  ;,  +  and  *— into  a  12-key 
piano  that  plays  a  do-re-me  scale  in 
the  Key  of  C  without  sharps  and  flats. 

It  also  changes  the  screen  turtle  into 
an  eighth  note  which  jumps  around 
to  the  appropriate  spot  on  a  musical 
staff  whenever  a  note  is  playpd.  As 
each  note  is  played,  its  letter-name  is 
also  printed  on  the  screen. 

Turtle  Piano  can  also  remember 
your  compositions  so  you  may  listen 
to  them  over  and  over  again. 

Though  it  is  not  a  particularly  com- 
plex program.  Turtle  Piano  is  an 
engrossing  project  for  young  com- 
puter users  and  programmers.  So  type 
in  Listing  1  and  SAVE  a  copy  before 
you  RUN  it. 


by  CRAIG  McBAIN 

HOW  IT  WORKS 

BEEP,  the  heart  of  the  program,  uses 
the  first  sound  channel  (TOOT  0)  to 
play  the  notes.  After  you  have  typed 
in  the  BEEP  procedure,  if  you  type 
BEEP  followed  by  a  number  greater 
than  14  you  will  hear  a  nice  note.  The 
number  260.7  will  give  you  Middle 
C.  Why?  A  violin  string  (or  anything 
else)  vibrating  at  260.7  cycles  per  se- 
cond produces  a  Middle  C. 

The  PLAY  procedure  ties  the  home 
row  keys  to  their  assigned  pitch 
values.  If  a  key  is  pressed  which  is  not 
one  of  the  home  row  keys,  PLAY  will 
output  a  frequency  of  50000  (too  high 
to  hear).  So  you  can  use  the  space  bar, 
for  example,  as  a  rest  between  notes. 
PLAY,  using  the  SETY  command,  also 
draws  the  turtle  on  the  staff 

Type  BEEP  PLAY  A  to  hear  Middle 
C.  PLAY  takes  the  input  character  [A] 
and  searches  for  its  corresponding 
pitch  value  (260.7).  PLAY  passes  this 
value  to  BEEP,  which  plays  the  appro- 
priate note. 

Note  the  relationship  between  the 
values  for  Middle  C  (260.7)  and  High 
C  (521.5)  in  the  PLAY  procedure. 
Now,  look  at  the  values  for  the  E  and 
F  tones.  The  higher  note  in  each  pair 
is  double  the  pitch  value  of  the  lower 
note.  This  is  always  true.  BEEP2,  the 
next  procedure,  uses  this  fact  to  pro- 
duce interesting  results. 

Try  BEEP2  a  few  times  and  com- 
pare it  with  BEEP.  It  uses  the  second 


sound  channel  (TOOT  1)  to  play  a 
tone  which  has  half  the  pitch  value 
of  the  first  note.  For  example,  if  you 
press  the  [A]  key,  BEEP2  plays  Middle 
C  and  the  tone  one  octave  below  it. 

We  use  the  GET.  NOTE  procedure 
to  check  the  keyboard  and  store  our 
notes.  GET.  NOTE  passes  each  note  to 
the  REMEM  procedure,  which  stores 
the  notes  in  the  variable  LINE. 

Type  [START]  to  run  the  program. 
Now,  press  the  [Y]  key  to  start  the 
piano.  This  invokes  the  START  pro- 
cedure. The  [C]  key  calls  the  CLEAN- 
UP procedure  which  erases  the  text 
window  and  erases  all  your  old  tunes 
stored  in  LINE.  If  the  [R]  key  is 
pressed,  the  REPLAY  procedure  will 
replay  the  list  of  notes  stored  in  LINE. 

The  procedure  REPLAY  is  really 
tricky.  This  recursive  procedure  re- 
moves the  top  note  from  LINE,  plays 
it,  and  discards  it.  Then,  it  starts  again, 
playing  the  first  note  on  the  shortened 
list.  REPLAY  continues  to  remove 
notes  from  the  top  of  LINE,  play  them 
and  discard  them  until  LINE  is  empty. 

The  graphics  portions  of  the  pro- 
gram need  little  comment  except 
perhaps  for  the  LOGO  names  "STAF- 
FHI,  "STAFFLO,  and  "NOAT.  Don't 
forget  to  type  these,  too.  These  vari- 
ables contain  lists  of  numbers  which 
tell  the  computer  how  to  reshape  the 
turtles  into  musical  notes.  The  turtles 
are  reshaped  in  the  SETUP  procedure 
with  the  PUTSH  command. 

continued  on  pase  19 
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Cmon, 
Cut  it  out! 

Can  $79.95  buy  me  an  Atari  1030  Modem 
and  software  package? 


1  Hiol  An  Atari  1030  Modem  guaranteed  to 
work  with  your  Atari  Computer  can  be  yours— 
all  you  need  is  at  least  16K  and  a  telephone 
line— you  don't  even  need  a  disk  drive. 

The  Atari  1030  Modem  is  an  easy 
to  use,  high  tech,  high  qual- 
ity modem  which  auto- 
matically uploads  to  your 
Atari  Computer. 

And,  with  a  disk  drive  you 


can  take  advantage  of  the  disk  communication 
software  (included  at  no  extra  cost).  This  Iree 
package  also  includes  introductory  subscriptions 
to  CompuServe  (access  to  hundreds  of  free  pro- 
gi'ams)  and  Dow  Jones  Retrieval  Services  at 
no  additional  cost. 

Cut  it  out!  Don't  wait!  Act  now! 

Take  advantage  of  this  incredible 

offer— Atari  quality  at  a  lower 

price  than  any  other  modem! 

NO  INTERFACE  REQUIRED 


Send  coupon  to: 
ADD-ON  Systems  •  S24  2nd  St.,  San  Francisco,  CA  94107 


YES!  I  want  this  extraordinary  communicalions  value!  I'm  ordering  now  so  I  can  receive: 

•  1  ATARI  1030  300  baud  modem  with  built  in  software -Free  Introductory  Time  on:  Dow  Jones,  CompuServe- Disk  Communicalions  Software 


The  suggested  retail  value  is  S199.95  MY  PRICE  IS  ONLY  $79.95.  Send  me  _ 


,  number  of  packages  at  $79.95  per  package  to: 


Name 


Addn 


City 


State 


Zip 


Please  make  check  payable  to  ADD-ON  Systems.    Credit  Card  Orders  Only  Call  Toll  Free 


Payment  enclosed  D  check  D  money  order 
Bill  my  n  Mastercard  D  Visa 


ID# 


Expires 


800  227  1617X133 

800  772  3545  X133  (inside  CA) 
California  residents  add  (>Vz%  sales  tax. 
Add  shipping  charges  of  S2.75  per  modem. 


Canadian  residents  please  send  U.S.  dollars. 
Allow  2-4  weeks  for  delivery. 
Prices  subject  to  change  without  notice. 
Delivery  subject  to  availability. 


ANTIC  AT  THE  FIRST 
GEM  SEMINAR 

Convertins  IBM  PC  software  to  Atari 


by  NAT  FRIEDLAND,  Antic  Editor 


^^L  ntic  was  the  ONLY  Atari 
^^^^k  Magazine  present  at  the 
^^^^kfirst  GEM  Software  Devel- 
Mr  ^^opers  Seminar  held  at 

Monterey,  California  in  February  by 
Digital  Research,  Inc.  DRI  created  the 
"Macintosh-like"  GEM  operating  in- 
terface that  is  being  used  for  the  new 
l6-bit  Atari  ST  computers. 

GEM  has  aroused  especially  wide 
interest  in  the  computer  industry 
because  it's  supposed  to  make  it  sim- 
ple to  convert  software  between  the 
IBM  PC  and  clones,  the  Macintosh, 
the  Atari  ST  and  any  other  computer 
that  GEM  licenses  a  version  for 

Some  of  Atari's  top  technical  execu- 
tives were  on  hand,  debuting  a  work- 
ing ST  with  a  preliminar)'  version  of 
Atari  GEM  burned  into  ROM. 

Antic  was  told  that  Atari  still  con- 
siders itself  on  schedule  for  bringing 
the  first  production  ST  computers 
onto  the  market  in  April.  Full  ST  pro- 
duction capacity  won't  be  reached 
until  June.  The  10-15  megabyte  hard 
disk  for  the  ST  will  show  up  in  the 
summer. 

ATARr  CAD/CAM? 

Remember  the  32-bit  Atari  we  re- 
ported Jack  Tramiel  talking  about  at 
his  November  press  conference?  Well, 
apparently  it  is  well  along  in  develop- 
ment. Atari  still  hopes  to  meet 
Tramiel 's  goal  of  unveiling  the 
machine  at  the  April  electronics  fair 
in  Hanover,  Germany. 


Every  time  Atari  engineers  talked 
about  the  32-bit  computer  in  Mon- 
terey, delighted  smiles  appeared  on 
their  faces.  The  computer  was  de- 
scribed to  Antic  as  a  "VAX  minicom- 
puter on  a  cliip"  and  a  "$40,000  CAD/ 
CAM  computer  graphics  workstation 
that  will  sell  for  under  $2,000." 

LEARNING  ABOUT  GEM 

As  for  the  GEM  Seminar  itself,  the 
$800  workshop  was  highly  technical 
and  directed  at  professional  con- 
sumer-software programmers  who 
were  thoroughly  experienced  with 
the  C  language  or  with  Macintosh 
window  program  development. 

The  Seminar  sessions  were  taken 
up  with  highly  detailed  discussions  of 
GEM  development  nuts  and  bolts 
such  as  the  strict  interfacing  pro- 
cedures which  are  supposed  to  make 
"porting"  GEM-based  programs  be- 
tween different  computers  a  routine 
one-day  process. 

Access  to  GEM  windows,  debug- 
ging, and  correct  embedding  of  trans- 
fer hooks  were  among  the  other  tech- 
nical topics  discussed.  All  attendees 
were  given  the  two-volume  GEM 
Toolkit  dociuTientation.  DRI's  recom- 
mended professional  development 
language  was  Lattice  C,  which  costs 
around  $500. 

It  should  be  noted  that  the  Seminar 
was  specifically  dealing  with  the  just- 
completed  IBM  PC  version  of  GEM. 
Six-disk  beta  test  editions  of  GEM 


were  being  sold  to  developers  by  DRI 
for  $500.  The  GEM  Library  software 
of  prepared  graphics  routines  cost 
extra. 

The  Atari  version  of  GEM  was  not 
yet  ready  for  beta  testing  at  the  time 
of  the  Seminar 

WETMORE  SUMS  UP 

Russ  Wetmore,  author  of  Homepak 
and  Preppie  as  well  as  other  major 
Atari  programs,  flew  in  from  his  Flor- 
ida homebase  to  attend  the  seminar 
and  then  stayed  on  to  see  the  Mac- 
World  Show  in  San  Francisco. 

He  spent  time  at  Antic  during  this 
period  and  shared  with  us  the  view- 
points of  a  highly  experienced  Atari 
professional  programmer 

"I  think  the  developers  at  the 
Seminar  fell  into  two  groups.  One 
group  is  totally  sold  on  the  GEM  goal 
of  making  a  lot  of  different  computers 
compatible  with  each  other,"  said 
Wetmore.  "And  for  now  they  are  will- 
ing to  overlook  any  unanswered  ques- 
tions that  came  up  during  the  ses- 
sions. The  second  group  is  taking 
more  of  a  wait-and-see  attitude." 

Wetmore  expresses  some  doubt 
that  GEM  software  will  port  between 
different  computers  as  easily  as  DRI 
says  it  will.  He  also  feels  that  GEM 
lacks  certain  built-in  features  found  in 
the  Macintosh  interface — such  as  a 
text  editor — ^which  will  make  it  more 

continued  on  page  19 
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THE  CHALLENGE. 

Over  2000  stimulating  thvia/facE  questions  will  send 
you  rummaging  through  your  personal  memory  banks. 
Answer  correctly  and  advance  in  your  quest  while 
adding  more  gold  to  your  treasure.  Fail  and  you  lose 
ground. 


THE  ACTION. 

You  may  have  to  face  and  battle  a  ferocious  dragon. 
If  you  prevail,  the  dragon's  cache  of  gold  will  be  added 
to  your  treasure.  If  you  fail,  your  journey  will  be  slowed 
white  you  heal  your  wounds. 


THE  STRATEGY 

Each  questing  party  consists  of  three  characters,  a 
Knight,  Prince  and  Page.  Each  has  distinctly  different 
physical  characteristics,  and  ad  must  complete  the 
Quest.  You  must  decide  when  to  send  them  on  to  the 
next  challenge. 


Atari  is  a  trademark  of  Atari,  Inc. 

©1984— Royal  Software 


This 

exciting  new 

concept  in  computer 

entertainment  will  keep  you 

and  your  friends  involved  for  hours  and 

hours.  This  is  probably  the  best  party-game 

ever  developed,  and  new  question  disks  will  be  available. 

Optional:  Utility  disk  which  allows  you  to  create  unlimited  trivia  questions 

and  answers  for  educational  or  entertainment.  The  utility  disk  also  includes 

over  1000  additional  questions.  Utility  disk  $24.95. 


"Software  fit  for  a  king!" 

2160  W.  1 1th  •  Eugene,  OR  97402  •  (503)  683-5361 

Ask  for  Trivia  Quest  at  your  favorite  Atari  Computer  Store 
or  order  directiy  from  Royai  Software.  Use  your  Master- 
Card, Visa,  American  Express,  or  send  ctieci<  or  Money 
Order  inciuding  $2.90  shipping  and  liandiing. 


by  LYN  BUCHANAN 


T'^he  Atari's  grapliics  capabili- 
ties are  the  best  you  can  get  for 
anywhere  near  the  price.  The 
problem  most  of  us  run  into  is 
that  our  piaures  LOOK  as  if  we  did 
them  ourselves. 

This  doesn't  need  to  be  the  case, 
however  Pixel  Scanner  will  perform 
automatic  computer  enliancement  of 
a  picture  by  using  a  process  called  pix- 
el averaging,  which  gives  a  depth  and 
fullness  to  an  otherwise  flat  picture. 

And  that  isn't  all.  By  tinkering  with 
this  program  a  little,  you  can  simulate 
the  sophisticated  computer  enliance- 
ments  used  by  NASA  to  bring  out 
small  details  in  satellite  photos. 

To  get  started,  type  in  Listing  1, 
check  it  with  TYPO  II,  and  SAVE  a 
copy. 

The  program  includes  a  demonstra- 
tion picture  of  a  stick  figure  bird  in 
Graphics  9  (lines  200-270),  and  the 
pixel  averaging  routine  (lines  100-161). 
The  picture  was  made  using  simple 
PLOT  and  DRAWTO  commands;  if 
you're  enterprising,  you  can  create 
your  own  picture  by  changing  these 
commands  in  the  demonstration 
picture. 

The  stick  figure  is  drawn  at  the  top 
half  of  the  screen,  leaving  room  for 
the  enhanced  version  at  the  bottom. 

HOW  IT  WORKS 

After  the  piaure  is  drawn,  the  pro- 
gram looks  at  each  pixel  and  its  sur- 
rounding pixels,  then  places  their 


This  BASIC  program  intmcluces  you 
to  pixel  averaging— an  advanced 
graphics  technique  similar  to  the 
method  NASA  uses  for  enhancing 
satellite  photo  details.  Pixel  Scanner 
ivorks  on  all  Atari  computers  of  any 
memory  size.  Disk  or  cassette. 

values  into  variables.  This  is  done 
in  lines  121-129  by  means  of  the 
LOCATE  command,  which  positions 
the  cursor  at  a  specified  x,y  coordinate 
on  the  screen  and  assigns  the  value 
of  the  byte  for  that  data  to  a  specified 
variable. 

The  format  for  a  LOCATE  com- 
mand is: 

LOCATE  (x-coord),(y-coord), 
(variable) 

The  program  then  adds  the  values 
of  all  the  variables  together,  and 
divides  by  the  number  of  pixels  sam- 

WHAT'S  A  PIXEL? 

The  word  "pixel"  is  computer  jar- 
gon f<n-  "picture  element."  It  stands 
for  iIh'  .smallest  controllalile  element 
of  a  screen  display. 

iS'aUiKilly,  pixel  size  is  determined 
by  computer  and  video  lesolufion 
limits,  as  ^^•e]l  as  by  graphics  mode 
.•ifii.-t  lion,  hi  .\tari  Gnipliics  8  moile, 
for  cx:!inple,  a  pixel  is  one  scan  line 
high  by  one-half  color  clock  wide — 
vvhicli  csseniially  matches  the  reso- 
lution of  a  home  television  receiver. 


pled  (line  131).  Using  that  average 
value,  it  then  re-colors  the  center  pix- 
el, to  make  it  blend  more  smoothly 
with  its  surroundings  (line  14 1). 

PIXEL  SEPARATING 

The  Pixel  Scanner  demo  program 
blends  pixels.  It  could  just  as  easily 
widen  the  difference  between 
pixels — as  is  done  in  satellite  photos 
to  distinguish  between  extremely 
small  variations. 

To  do  this,  change  the  way  the 
value  of  K  is  figured.  In  line  131,  K 
is  figured  as  the  average  of  all  the 
variables.  It  would  be  just  as  easy  to 
make  K  vary  by,  say,  4  times  the 
average,  if  you  change  the  command 
COLOR  K  (line  I4l)  into  COLOR  K*4. 

With  a  little  experimentation,  you 
will  begin  to  find  a  wide  variety  of 
things  to  do  with  this  routine.  Other 
effects  can  be  achieved  by  sampling 
only  certain  adjacent  pixels  and  not 
others. 

You  might  also  try  changing  to 
Graphics  11  (line  201),  You'll  be  sur- 
prised at  the  beautiful  blends  of  col- 
ors which  are  produced. 


Lyn  Buchcuuin  is  a  civilian  program- 
mer at  Fort  Meade,  Maryland.  He  is 
also  a  programming  and  systems 
analysis  instructor 


Listing  on  page  58 
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MORE  REAL  POWER  FOR  YOUR  ATARI 


DESK  SET  $39.00 


Complete  Desk  Package 

CALENDAR 

CALENDAR  is  a  perpetual  calendar,  an  appointment 
calendar  and  also  a  card  file.  The  perpetual  calendar 
is  a  calendar  of  every  month,  past,  present  or  future. 
The  appointment  calendar  allows  up  to  15  entries  to 
be  made  each  day. 

CARD  FILE 

The  card  file  is  a  mail  list  program  which  holds  up  to 
200  addresses.  The  printing  format  of  card  file  in- 
cludes continuous  lists,  labels  or  envelopes.  Files 
can  be  printed;  all  the  files  from  one  file  number  to 
another;  by  zip  code;  by  state  or  by  selected  tiles. 

LETTER  WRITER 

LETTER  WRITER  is  a  Preformatted  letter  writing 
program.  LETTER  WRITER  can  be  used  for  any 
number  of  applications  involving  entering,  editing 
and  printing  text.  LETTER  WRITER  is  designed  to 
be  easy  to  use  and  does  not  require  extensive  train- 
ing. While  LETTER  WRITER  is  not  a  full  word  pro- 
cessing system,  it  performs  90%  of  the  functions 
used  by  harder  to  use  and  more  expensive  word  pro- 
cessors. DESK  SET  also  contains  a  program  that  al- 
lows you  to  combine  Card  File  and  Letter  Writer  for 
interaction. 

FINANCIAL  CALCULATOR 

FINANCIAL   CALCULATOR   answers   virtually   any 
questions  concerning  the  cost  of  money,  loans,  and 
interest  earned  on  savings,  loans  and  investments. 
Plus,   this   program   will   give   a   complete   interest  j 
earned  table  and  amortization  table.  This  program  is  I 
a  must  for  anyone  serious  about  money. 

FORECASTER 

Forecast  future  events  based  on  past  information. 
Forecast  profits,  costs,  sales  trends,  prices  test 
scores,  virtually  anything.  Edit,  save  on  disl<  and  test 
various  elements  to  determine  the  outcome. 
FORECASTER  is  a  powerful  "what  if"  program  -  a 
must  for  business. 

Two  drive  -  double  density  -  48K  required. 


HOME  WRITER  $19.00 


The  HOME  WRITER  is  an  easy  to  use 
word  processor  which  includes  a  carefully 
selected  group  of  functions  that  are  at  your 
disposal  immediately.  The  functions  are  as 
follows:  SAVE,  LOAD,  REVIEW,  PRINT- 
OUT, or  EDIT.  All  the  popular  editting  fea- 
tures available  on  the  ATARI  Home  Com- 
puter in  direct  programming  mode  are  also 
available  with  HOIVIE  WRITER.  You  may 
also  search  for  phrases  or  strings,  load  off 
of  either  disk  or  cassette,  and  number 
pages  automatically.  Unlike  other  small 
word  processing  programs,  HOME  WRIT- 
ER does  not  wrap-around  when  at  the  end 
of  a  line.  Right  and  left  margin  justification 
is  available  for  any  type  parallel  printer. 
48K. 


ASTRA 

Double  Disk  Drives 


True 
Double 
Density 


Total 
Compatible 


INCLUDES  DOS 

Big  "D"  Double  Sided  .  $595.00 

2001  Two  Drive  $495.00 

1620  Two  Drive  $349.00 

1620  quantities  are  limited. 


SMARTDOS  $39.00 


SMARTDOS  is  100%  density  smart. 
SMARTDOS  will  sense  the  density  of 
each  disk  in  use  and  automatically  recon- 
figure the  entire  system  to  that  density. 
SMARTDOS  does  not  require  that  a  "sys- 
tem disk"  has  to  remain  in  the  drive,  or  be 
continually  inserted  and  removed  in  order 
to  use  the  DUP.SYS  commands. 
With  SMARTDOS  you  may  Copy  with 
query,  (eliminates  specifying  each  item 
individually). 

Counter  screens  -  which  keeps  the  user 
informed  as  to  what  the  system  is  doing 
and  where  in  the  task  the  system  is. 
Disk  testing  for  bad  or  unusual  sectors 
that  may  be  corrected. 
RESIDUP  feature  allows  simple  yet  pow- 
erful  full   time   availability  of  DUP.SYS 
commands  while  leaving  your  program 
intact  and  ready  to  RUN. 
Minimum  keystrokes  for  maximum  power, 
e.g.  a  disk  directory  is  done  by  pressing 
only  one  key  -  the  drive  number  (great 
for  filesearches,  and  "  =  "  may  be  used  to 
replace  '.'. 

The  ability  to  run  from  1  to  9  autorun  files 
sequentially. 

Built  in  disk  drive  speed  check. 
SMARTDOS  is  only  34  single  density 
sectors  long  and  works  with  all  Atari  com- 
puters with  a  minimum  of  24K  RAM. 


FILING  SYSTEM  $1 9.00     LETTER  SYSTEM  $29.00   BILLING/INVENTORY  $49.00 


FILING  SYSTEM  allows  the  user  to  confi- 
gure any  type  of  data  file  imaginable.  Ex- 
amples are  recipe  cards,  mail  lists,  remin- 
ders for  birthdays,  check-ups,  etc.,  com- 
plete inventories  (home  and  business),  per- 
sonnel files,  customer  call-ups,  price  list, 
and  much,  much  more.  You  may  retrieve 
data  using  any  field  or  combination  of 
fields.  Files  also  may  be  saved,  sorted,  and 
printed  in  a  preset  format  that  you  confi- 
gure. Uses  either  a  single  or  a  double 
density  disk  drive.  24K  minimum. 


STAT-PLUS  $29.00 


STAT  PLUS  is  the  most  powerful  statistic 
tool  we  have  seen.  Run  sample  space, 
mean,  variance  and  standard  deviation.  Do 
probabilities  using  binomial,  poisson  or  nor- 
mal distribution.  Also,  do  students'  t-test, 
Mann-Whitney  U  test  and  Chi  Square.  Do 
linear  regressions;  may  use  1-12  indepen- 
dent variables,  interact  a  sample  from  one 
module  to  another,  edit,  rank  and  print  out. 
24K  min. 


This  disk  contains  both  LETTER  WRITER 
and  MASTER  LIST  plus  the  necessary  pro- 
gram that  allows  for  combining  the  two  pro- 
grams for  interaction.  Call  a  file  off  disk, 
type  a  letter  and  (with  the  right  printer)  type 
on  envelope,  or  just  run  one  letter  after 
another.  All  of  the  powerful  features  of  both 
LETTER  WRITER  and  MASTER  LIST  plus 
the  ability  to  use  them  together. 

Includes  35  pre-typed  letters. 


ACCESSORIES 


Disk  Doubter    $14.00 

5'  I/O  Cable    $12.50 

r  I/O  Cable    $  8.50 

Transformer   $18.50 

IBX  10  SS/DD  Disks 
w/  plastic  box    $14.50 

C-5  Data  Cassette  w/box    $  2.49 

Disk  Fix  and  Cleaning  Kit    $29.00 


BILLING  allows  you  to  do  invoices,  posts  to 
account  cards,  deductions  from  inventory 
and  payments.  There  are  provisions  for 
shipping,  discounts,  no  charge  items  and 
tax.  BILLING  also  allows  maintenance  for 
up  to  500  customer  files,  and  printing  of  the 
daily  total  of  billings.  A  flowchart  is  given  to 
show  the  step-by-step  direction  that  the 
program  takes.  Allows  for  up  to  300  inven- 
tory items.  48K. 


DEMONS  DUNGEON  $19.00 


Queen  Isidore's  crown  was  stolen  by  the 
Demons  that  live  in  the  deep  terrifying  dun- 
geon. If  the  crown  is  not  recovered  the 
magic  that  protects  her  and  the  kingdom 
will  vanish.  Others  have  tried  and  died. 
Whoever  recovers  the  crown  and  saves  the 
kingdom  will  win  the  hand  of  the  princess 
llena  and  the  Kingdom. 


THE  PROGRAMMERS  WORKSHOP 

24686  REDLANDS  BLVD.  •  SAN  BERNARDINO,  CA  92406 

OUTSIDE  OF  CALIFORNIA  (800)  228-6821 

CALIFORNIA  (714)  796-6821 


TO  ORDER:  VISA/MASTERCARD,  Check  or  Money 
Order  accepted.  If  charge,  please  include  expiration 
date.  Shipping  and  Handling  -  Software  $1.50  -  Disk 
Drives  $10.00.  California  residents  add  sales  tax. 
Phone  or  mail. 


Atari 

in 

Ligtits 

Theater 

liShtins  designer's 

Atari  CA.D. 


by  MICHAEL  CIRAOLO, 
Antic  Associate  Editor 

James  Brentano  is  the  stage  lighting  designer  and 
lecturer  for  the  Drama  Department  of  U.C. 
Berkeley.  He  has  also  been  a  dedicated  Atari 
hacker  since  he  bought  his  800  back  in  the  days 
when  it  cost  $800. 

When  you  think  about  it,  designing  the  lighting  for  a 
theatrical  production  is  a  highly  information-intensive 
task.  You  have  to  combine  dozens  of  color  filters,  lights, 
cables  and  dimmers  in  order  to  get  the  job  done. 

"A  typical  show  will  require  150-200  lights.  For  each 
light  you  must  keep  track  of  the  following — name  or  label, 
any  one  of  several  hundred  colors,  circuit  which  plugs 
the  unit  into  the  control  board,  a  dimmer  switch  and  stage 
focus  spot  where  the  light  is  aimed.  Also  each  light  unit 
will  have  different  level  settings  for  up  to  200  cues," 
Brentano  said. 

Designing  the  lighting  for  a  show  traditionally  requires 
extensive  drafting  of  diagrams  and  long  lists  of  each  light's 
location,  focus  and  so  on.  For  each  show,  lights,  cables 
and  other  material  also  have  to  be  ordered — more 
paperwork. 

Brentano  now  uses  his  Atari  to  handle  the  entire  pro- 
cess. He  wrote  a  BASIC  routine  to  draw  the  lighting 
characters  in  Graphic  8,  and  uses  Graphics  Master  soft- 
ware to  produce  a  design  layout  template. 

He  also  uses  SynFile  +  to  keep  track  of  lighting  infor- 
mation which  can  be  sorted — by  focus,  type  of  light,  etc. 

ANTIC,  The  Atari  Resource 


COMPUTER  AIDED  DESIGN 

Brentano  isn't  content  to  simply  turn 
the  paperwork  over  to  his  Atari.  He's 
planning  to  unite  his  lighting  pro- 
grams and  utilities  in  one  system,  a 
computer  aided  design  (CAD)  pac- 
kage for  the  Atari. 

"Nobody  has  yet  developed  a  sys- 
tem where  you're  simultaneously 
hooked  into  the  stage  cues  and  all  the 
lighting  unit  information,"  Brentano 
said. 

"For  the  price  of  two  IBM  graphics 
boards  and  a  whistle,  I  can  produce 
a  package  with  an  Atari,  dot-matrix 
printer,  disk  drives  and  the  software 
to  do  all  the  CAD  lighting  work," 
Brentano  figured.  All  for  around 
S1,000. 

"Ideally  you'd  have  onscreen  a  pic- 
ture of  the  lighting  diagram,  and  you'd 
use  a  light  pen  or  mouse  to  circle  and 
call  up  all  the  information  on  given 
unit." 

After  producing  a  package  to  do 
CAD  lighting  design,  the  next  step  is 
direct  computer  control  of  the  light- 
ing board.  "The  technology  of  light 
board  computers  is  primitive — the 
interface  to  all  the  knobs  and  controls 
is  expensive,"  the  designer  explained. 

The  light  board  Brentano  uses  at 
U.C.  Berkeley  costs  $37,000,  not  in- 
cluding the  dimmers.  "That's  ridicu- 
lous when  an  Atari  costs  S120,"  Bren- 
tano said. 

"LET'S  MAKE  A  SHOW" 

"It's  surprising  how  many  stagehands 


own  Ataris — they  like  to  play  games. 
And  we  all  play  this  game  together, 
"Let's  go  make  a  show".  Backstage 
crafts  simply  offer  bigger  and  more 
expensive  toys." 

Brentano  maintains  that  the  Atari 
appeals  to  stagehands  because  of  the 
machine's  game  tradition  and  because 
it's  not  hard  to  get  inside  the  com- 
puter and  play  with  it. 

"You  can  do  a  lot  of  this  design 
with  the  Macintosh  and  File  Vision," 
Brentano  admitted.  File  Vision  is  a 
visual  database  which  lets  you  design 
icons  that  can  be  moved  around  the 
screen.  Each  icon  also  represents 
detailed  information,  such  as  the 
focus,  location  and  type  of  each  light. 

"But  Apple  has  a  certain  snobbish- 
ness I  object  to,"  said  Brentano,  who 


The  map  and  key  above  are  used  to  tell  theater  electricians  where  to  hang  certain  lights,  what 
l<inds  of  lights  to  use,  and  what  focus  each  light  requires. 


believes  that  the  Atari  is  the  best  8-bit 
machine  on  the  market.  "Pong  is  the 
greatest  thing  since  sliced  bread." 

LIGHTING  BOARD 

Brentano's  dedication  to  the  Atari  has 
made  it  the  computer  of  choice  for 
a  theatrical  bulletin  board  he's 
starting. 

Based  on  an  Atari  800,  an  MPP 
lOOOC  modem  and  two  disk  drives, 
Brentano's  bulletin  board  will  cater  to 
the  theatrical  lighting  community.  It 
will  have  classified  ads  for  jobs,  equip- 
ment and  so  on.  The  board  will  also 
feature  electronic  mail,  hints  and  tips 
for  lighting  designers,  product  reviews 
and  comments. 

"Eventually,  I  want  to  be  able  to 
dump  a  show's  files  to  the  bulletin 
board,  so  rental  companies  can  log 
on,  look  at  the  file,  and  give  me  a 
price." 

"A  problem  with  theater  is  that  we 
spend  $10-20,000  per  show.  Any  way 
to  share  information  saves  money," 
Brentano  said.  "There's  a  need  for  a 
clearinghouse  of  information." 

Brentano's  board  will  be  the  only 
Atari  theater  BBS  in  the  country — and 
only  the  second  theater  board  of  any 
kind.  It  is  called  JCN  Qames'  Com- 
puter Network).  The  phone  number 
is  (415)  562-3364. 

"JCN— it's  like  HAL  in  '2001.'  HAL 
was  from  one  letter  before  IBM.  JCN 
is  one  letter  after." 
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You  have  already 
made  your 
first  mistake ! 

You  thought  that  cassette  recorder 
lA/ould  handle  your  storage  needs. 

WRONG! 

Don't  make 
another  one ! 

You  think  you  need  a  disk  drive 
to  solve  your  storage  problenns. 

WBOHG! 

You  need  2 
disl<  drives ! 

Any  serious  application  practically 
dennands  at  least  2  drives. 

Word  Processing 

5pread5heet 

Data  Base  Management 

Mailing  List  5oftware 

All  of  these  are  nnade  more 
powerful  and,  at  the  sanne  tinne, 
easier  to  use  if  you  have  two  dish 
drives. 

5o  now  it  will  cost  twice  as  nnuch, 
right? 

WRONG! 

You  need  an  Astra  single  or  double 
density  dual  dish  drive.  Two  drives 
in  one  low-pnced  unit. 

Astra  Systems  now  has 
two  new  models  for  your 
ATARI: 


ASTRA  2001 

Single  or  Double  Density 
Dish  Drive 


■  Advanced  Circuitry 
"  Rotary  Doors 
Direct  Drive  Motors 
560  Kbytes 
I  Reliable,  Quiet  Operation 
'  rast  Read/Write 
-  Easy  Data  Read  • 

ASTRA  ''BIG  D" 

I  Double  5ided  Drives 
I  Single  or  Double  Density 
I  Direct  Drive  Motors 
I  720  Kbytes 

ALL  DRIVE5  rURhl5HED  lA/ITh 
5nARTD05  0RMYD05* 

•DOUBLE  5IDEDDRIVE5 

Eor  nearest  dealer  or  distributor  call 
(714)  549-2141 

nSTRfl  SVST6MS,  INC 

2500  South  Eairview,  Unit  L 
Santa  Ana,  California  92704 


ANTIC  AT  THE  FIRST  GEM  SEMINAR 

continued  from  page  12 

difficult  for  professional  programmers 
to  work  with. 

Despite  tliis,  Wetmore  was  positive 
enough  about  GEM  that  he  bought  the 
Seminar  disks  and  intends  to  invest 
over  $4,500  for  a  souped-up  IBM  PC 
to  run  Lattice  C.  "But  right  now  any 
GEM  programs  I  publish  will  just  be 
for  the  Atari,"  he  said,  "because  it's 
the  only  computer  that  a  developer 
won't  be  charged  royalties  for  by  DRI 
when  the  software  comes  out."   Q 


TURTLE  PIANO 

continued  from  pase  10 

As  stated  earlier,  this  program  is 
really  pretty  simple.  Readers  are  en- 
couraged to  make  it  more  special. 
With  a  little  tinkering,  Turtle  Piano 
could  flash  different  colors  with  each 
note,  extend  for  another  octave  c^r 
two,  or  include  sharps  and  flats.  The 
basic  structure  can  accommodate  all 
these  changes  and  more.  The  only 
rule  is  to  share  your  ideas  by  sending 
them  to  Antic. 

Craig  McBain    is  a   third  grade 
teacher  in  Mt.  Clemens,  Michigan. 
His  wife  wishes  that  Atari  Logo  had 
never  been  invented. 
Listing  on  page  74  Q 


THE  #1  SYSOP 

continued  from  page  8 

from  the  Japanese  game  Go,  and 
SIG  *Atari  has  an  oriental  sound,"  said 
Luks,  pronouncing  the  name  quickly 
and  sibilantly,  as  one  monosyllabic 
word. 

MILLION-DOLLAR  SIGS 

SIGs  are  now  the  second  or  third  larg- 
est moneymaker  for  CompuServe, 
bringing  in  millions  of  dollars  a  year, 
Luks  said.  And  he  has  a  well-defined 
niche  in  that  enterprise. 

Luks,  the  "Godfather  of  SIG 'Atari ", 


now  works  with  a  CompuServe  sysop 
school  and  a  test  SIG  where  new  SIG 
software  is  beta  tested.  He  also  helped 
launch  the  IBM  SIG  and  works  eight 
other  boards  besides  SIG  "Atari — as 
well  as  being  OnLine  Editor  of  the 
Antic  CompuServe  Edition. 

Of  course,  all  that  takes  a  lot  of  time, 
"60  to  70  hours  a  week,"  Luks  figured. 
As  we've  found  out  at  Antic  when  we 
try  to  get  in  touch  with  Luks,  the 
phone  at  his  Greenwich  Village  apart- 
ment routinely  gives  off  a  busy  signal 
till  after  3  a.m. 

And  during  regular  working  hours, 
Luks  is  a  freelance  computer  consul- 
tant to  a  major  Wall  Street  brokerage 
firm. 

"Nowhere  else  can  you  find  a  more 
knowledgable  group  on  the  Atari 
world  than  on  SlG*Atari,"  Luks  said. 
SIG  *Atari  members  gave  constructive 
input  to  Synapse  Software  during  its 
development  of  the  Syn  Series.  More 
recently  they've  done  the  same  for 
Batteries  Included's  HomePak. 

"Our  users  decide  what  service 
they  get  and  dictate  policy,"  Luks  said. 
However,  Luks  insists  that  users  main- 
tain a  sense  of  decorum  on  SIG  *Atari 
and  that  the  board  not  become  a 
haven  for  pirates. 

FREE  ACCESS 

Luks  is  committed  to  bringing  the  SIG 
to  as  many  Atari  users  as  possible.  If 
a  large  users  group  has  never  been  in 
SIG*Atari  before,  Luks  said  he  would 
try  to  arrange  free  access  to  the  SIG 
for  a  weekend  so  the  group  could 
discover  the  magic  for  themselves. 

"If  we  could  get  a  new  machine 
from  Atari,  we  could  have  50-60 
public  domain  programs  for  the  ST  on 
the  SIG*Atari,"  Luks  claimed.  Nor 
does  it  appear  an  idle  boast.  "On  the 
Macintosh  SIG,  we  had  50  programs 
when  there  were  only  five  for  sale  in 
the  stores." 

"All  they  have  to  do  is  ship  it.  We'll 
do  the  rest,"  Luks  promised. 

Luks  sees  his  demanding  work  with 
CompuServe  as  an  investment  in  the 
future.  "We're  shaping  the  technology. 
Also  I  want  to  be  able  to  live  any- 
where, to  be  geographically  indepen- 
dent and  able  to  work  over  the 
phone."  Q 


YOUR 

SOFTWARE 

RIGHTS 


1.  You.  the  Atari  owner,  have  the  right  to  expect 
a  siiriple,  easy-to-use  filing  system. 

2.  You  have  the  right  to  see  your  Atari  perform 
to  its  fuilest  capabilities— using  advanced 
graphics,  color  and  sound. 

3.  You  have  the  right  to  expect  home  productivity 
software  that's  easy,  convenient  and  natural. 

AND  YOU  HAVE  THE  RIGHT  TO 
YOUR  SATISFACTION  GUARAN- 
TEED OR  YOUR  MONEY  BACK. 


We  hear  you.  That's  why 
Antic  is  presenting  you 
with  Sparky  Starks  and 
Russ  Wetmore's 


TM- 


HomeCard 


For  $24.95,  HomeCard  gives  you  an  electronic  fil- 
ing box.  Intelligent  Rolodex®  with  automatic  tone 
or  pulse  dialing  of  up  to  234  telephone  numbers. 
Full  search  ability  with  the  speed  of  a  RAMDISK. 
And  the  natural  convenience  of  Index  cards. 


By  the  author  of  HomePak. ' 

HomeCard  allows  you  to: 

•  chain  any  number  of  cards  together 

•  store  up  to  234  cards  in  each  box  (one  disk) 

•  create  up  to  8  major  categories  and  effortlessly 
search  any  combination  of  those  groups 

•  use  any  1030  or  Hayes-compatible  modem 
or  TV.  speaker  to  autodial 

Ideal  for  home  and 
student  applications. 

Arcade  #RW100    $24.95-rshipping  &  handling 

ORDER  NOW  reference  #RW100 

Use  tfie  order  form  in  the  Arcade  catalog. 

Credit  card  orders 

call  800-227-1617  (ext.  133) 

in  Calif,  800-772-3545  (ext,  133) 

Exclusively  from  Antic, 
Requires  48Kand  disk  drive. 
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ATARI®  820  or  822  PRINTER  -  $39.00 

With  Cable  and  Paper  Everything  you  Need! 


DISK  DRIVES 

-  New  Special  Edition 

$1 99.00  or  $349.00  w/Happy 

-  Reconditioned  ATARI®  810 
$1 49.00  or  $299.00  w/Happy 

•  Happy®  Compatible 

•  1 00%  Software  Compatible 
.120  Day  Warranty 

•  Most  Durable  &  Serviceable 


MADE  FROM  ATARI*  810  BOARDS 
AND  TANDON*  MECHANISMS 


Everything  for  the  ATARI       Systems  to  Parts 


410  PROGRAM  RECORDERS 
CASSETTE ■ $29.00 


•  Star  Raiders  .  Missle  Command 

•  Touch  Typing  .Time  Wise 
.States  &  Capitals       .2  More  Games 

All  for  $19.95 

800  Computer  Boards 
Complete  &  Tested 

.  Mother  Board  .CPU  Board 

.  Power  Board  .  Ram  Board 

.ROM  Board 

All  for  $39.00 

-  Numeric  Keypads  w/driver  $19.95 

-  Disks  from  $1 .00  each 

-  UK®  LETTER  PERFECT  or  DATA  PERFECT 


San  Jose  Computer 

1844Almaden,  Rd.  Unit  E 

San  Jose,  CA  951 25 

(408)  723-2025 


YOU  CAN'T  TELL 

A  DISK  DRIVE 

BY  ITS  COVER!! 


WITH  A  HAPPY  ENHANCEMENT  INSTALLED  THESE  ARE 
THE  MOST  POWERFUL  DISK  DRIVES  FOR  YOUR  ATARI  COMPUTER 

WARP  SPEED  SOFTWARE  DISK  READING  AND  WRITING  500%  FASTER 

HAPPY  BACKUP  —  Easy  to  use  backup  of  even  the  most  heavily  protected  disks 

HAPPY  COMPACTOR  —  Combines  8  disks  into  1  disk  with  a  menu 

WARP  SPEED  DOS  -  Improved  Atari  DOS  2. OS  with  WARP  SPEED  reading  &  writing 

SECTOR  COPIER  —  Whole  disk  read,  write  and  verify  in  105  seconds 

1050  ENHANCEMENT  —  Supports  single,  1050  double,  and  true  double  density 

810  ENHANCEMENT  —  Supports  single  density 

SPECIAL  SUGGESTED  RETAIL  PRICE:  Get  the  HAPPY  ENHANCEMENT  810  or  1050  version  with  the  HAPPY  BACKUP  PROGRAM, 
plus  the  multi  drive  HAPPY  BACKUP  PROGRAM,  plus  the  HAPPY  COMPACTOR  PROGRAM,  plus  the  HAPPY  DRIVE  DOS,  plus  the 
HAPPY  SECTOR  COPY,  all  with  WARP  DRIVE  SPEED,  including  our  diagnostic,  a  $350.00  value  for  only  $249.95,  for  a  limited  time  only! 
Price  includes  shipping  by  air  mail  to  U.S.A.  and  Canada.  Foreign  orders  add  $10.00  and  send  an  international  money  order  payable  through  a 
U.S.A.  bank.  California  orders  add  $16.25  state  sales  tax.  Cashiers  check  or  money  order  for  immediate  shipment  from  stock.  Personal  checks  require 
2-3  weeks  to  clear.  Cash  COD  available  by  phone  order  and  charges  will  be  added.  No  credit  card  orders  accepted.  ENHANCEMENTS  for  other 
ATARI  compatible  drives  coming  soon,  call  for  information.  Specify  1050  or  810  ENHANCEMENT,  all  1050s  use  the  same  ENHANCEMENT. 
Please  specify  -H  model  for  all  810  disk  drives  purchased  new  after  February  1982,  call  for  help  in  810  ENHANCEMENT  model  selection.  Dealers 

now  throughout  the  world,  call  for  the  number  of  the  dealer  closest  to  you.  ATARI  is  a  registered  trademark  of  Atari  Computer  Inc. 


HAPPY  COMPUTERS,  INC. 


p.  O.  Box  1268     •     Morgan  Hill,  California  95037 


(408)  779-3830 


Let  your  joystick  select  prosram  hues! 


by  JOHN  FELTON 


Take  the  tedium  out  of  program  col- 
or selection  with  this  joystick-driven 
BASIC  utility.  Color  Palette  runs  on 
all  Atari  computers  of  any  memory 
size.  Disk  or  cassette. 

^^  ^^  ^hen  the  time  comes  to 
^J^W  select  colors  for  your 
^m  \W  new  program,  it's  hard 
▼      T  to  choose  among  all  the 
Atari's    128    colors    and    multiple 
luminances — if  you  can't  convenient- 
ly compare  similar  shades.  Until  now, 
it  was  a  tedious  process  to  find  the 
perfect  green  for  your  slime  monsters, 
or  just  the  right  red  for  the  sky  over 
Barsoom.  You  might  use  SETCOLOR 
in  a  program,  run  it,  look  at  it,  break 
it,  adjust  it  and  start  over  again. 


USING  PALETTE 

Color  Palette  gives  you  a  better  way 
to  use  the  best  home  graphics  com- 
puter on  the  market. 

Type  in  Listing  1,  check  it  with 
TYPO  II,  SAVE  a  copy,  and  RUN  the 
program.  You'll  be  looking  at  a 
joystick-driven  utility  for  color  selec- 
tion. Listing  2  is  the  source  code  for 
the  assembly  language  routines  used 
in  the  BASIC  program.  You  don't  need 
to  type  it  in. 

The  palette's  screen  is  divided  into 
two  windows.  In  the  top,  you'll  see 
12  patches  of  color,  each  with  its  hue 
and  luminance  numbers  and  a  color 
register  value.  The  lower  right  corner 
is  the  background  color. 

The  bottom  half  modifies  the  col- 
or of  patches  in  the  top  half.  Put  the 
cursor  over  the  patch  you  wish  to 


modify  and  press  the  joystick  button. 
You'll  now  be  able  to  change  colors 
by  moving  the  stick  up  and  down, 
and  change  luminance  by  moving  the 
stick  from  side  to  side.  Press  the  trig- 
ger to  set  that  color  and  move  on.  To 
see  your  values,  watch  the  X  in  the 
lower  window. 

That's  all  that  there  is  to  it.  You 
might  note  that  the  top  four  patches 
are  initialized  to  the  Atari  default  col- 
ors. It  is  amazing  how  many  programs 
use  these  four  colors  just  because  it's 
easier  than  looking  for  better  ones. 
Well,  no  more. 

A  three-year  veteran  of  the  Atari, 
John  Felton  is  a  computer  science 
major  at  Cal  Poly  in  San  Luis 
Obispo,  California. 

Listins  on  page  64  Imi 
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COLOR  tHe  COVER 


CONTEST 


By  JACK  POWELL  and  MICHAEL  CIRAOLO 


When  we  invited  submissions  for 
our  Color  tiie  Cover  Contest,  we 
didn't  really  expect  a  winner  with 
the  diligence,  creativity  and  .  . .  uh 
. . .  compulsiveness  of  Paul  Sedge- 
wick.  His  adaptation  of  the  January 
1985  Antic  cover  was  artistically  a 
match  for  any  other  entry— but  it 
was  also  a  mind-bogsling  techno- 
logical tour  de  force. 

The  23-year-old  electrical  engi- 
neer from  Northridge,  California 
spends  his  days  producing  delicate 
military  microwave  machines.  And 
he  put  in  over  100  hours  re-creating 
Antic's  cover  with  redefined 
characters  on  two  scrolling  screens. 

Paul  decided  that  the  black  and 
white  Antic  January  cover  needed 
at  least  five  colors,  if  not  more.  He 
also  didn't  think  one  video  screen 
was  large  enough. 

Wanting  the  highest  resolution 
possible,  Paul  chose  ANTIC  Mode  4, 
the  only  mode  which  offers  both 
high  resolution  and  five  colors. 
(Mode  4  is  a  five-color  text  mode, 
counting  the  background.) 

He  then  photocopied  the  cover, 
enlarged  it  and  graphed  it  on  a  grid 
approximately  40  squares  wide  and 
50  down— each  block  representing 
one  mode  4  character. 

Next  he  graphed  the  cover  in  even 
finer  detail,  dividing  each  block  in- 
to a  4x8  pixel  matrix. 


34  CHARACTER  SETS 

Having  done  all  this  preliminary 
paperwork,  Paul  finally  reached  for 
his  own  trusty  character  set  editor. 
Using  the  editor,  Paul  redefined 
each  character  block  to  match  the 
cover.  However,  there  are  only  256 
characters  in  a  character  set— just 
enough  to  draw  three  screen  rows. 

Rather  than  re-use  characters  for 
different  portions  of  the  picture, 
Paul  used  display  list  interrupts  (DLI) 
to  actually  change  character  sets 
while  the  screen  was  being  drawn. 
After  each  three  rows  of  characters 
on  screen,  a  different  set  was 
pointed  to  in  memory. 

Paul  decided  that  five  colors  real- 
ly weren't  sufficient,  so  he  used  a 
vertical  blank  interrupt(VBI)todraw 
the  picture  twice,  thus  creating  ex- 
tra colors  by  superimposing  the 
hues.  Two  overlapping  hues  of  the 
same  luminence  created  a  third  col- 
or; two  hues  of  different  luminences 
created  a  vibrating,  flickering  effect. 

The  VBI  was  also  used  for  vertical 
fine  scrolling  between  two  screens, 
which  meant  the  display  list  instruc- 
tions had  to  be  continually  re- 
figured. 

What  began  as  a  simple  Color  the 
Cover  Contest  entry  ended  in  a  four- 
screen  phantasmagoria.  The  VBI  al- 
ternates between  two  screens,  and 
the  vertical  scroll  switches  between 
two  more.  After  100  hours  of  work, 


Paul  had  created  the  necessary  34 
complete  character  sets.  With  an  ac- 
companying assembly  language 
program,  the  entire  binary  load  file 
occupied  316  disk  sectors! 

...AND  RUNNERS-UP 

Nearly  150  readers  mailed  in  entries 
to  the  contest.  Just  about  half  the 
entries  used  the  KoalaPad  or  Atari 
Touch  Tablet  with  accompanying 
Micro  Illustrator  (AtariArtist)  soft- 
ware. Interestingly  the  second  most 
used  computer  graphics  tool  was 
"Price's  Picture  Painter"  the  power- 
ful program  from  Antic's  September, 
1984  issue. 

Tim  O'Conndl,  of  Mastic  Beach,  New 
York  used  a  KoalaPad  to  produce  his 
strong  head-and-shoulders  close-up 
of  Utility  Man.  Our  distinguished 
panel  of  judges  (Antic  editorial  and 
art  departments)  particularly  liked 
the  way  this  U-Man  seemed  to  be 
posing  for  a  hero  portrait. 

Alfred  Gomez  of  Las  Cruces,  New 
Mexico  spent  several  sleepless 
nights  to  produce  his  entry.  Gomez 
demonstrated  his  good  taste  by  de- 
picting a  miniature  Antic  magazine 
hanging  from  Utility  Man's  belt,  al- 
though this  is  too  small  to  see  in  our 
screen  shot.  Our  judges  were  also 
pleased  with  the  excellent  use  of 
contrast  and  color.  His  successful  ef- 
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ANTIC,  The  Atari  Resource 


and  the  winner  is  * . . 


Paul  Sedgewick 


forts  "burned  my  rendition  into  the 
retinas  of  my  eyes."  He  was  the  only 
entrant  to  use  the  Fun  with  Art 
cartridge. 

Montreal's  Gaston  Aladin  used  the 
Atari  Touch  Tablet  and  his  own  soft- 
ware to  produce  his  highly  impres- 
sionistic entry.  Aladin's  worl< 
demonstrates  interesting,  complex 
background  textures  captured  in  a 
fluid  sense  of  movement. 

Nick  Turner  was  "inspired  to  go  to 
the  limit"  of  his  patience  in  re- 
creating our  cover.  This  programmer 
from  Mountain  View,  California  used 
AtarlArtist  cartridge  with  Atari 
Touch  Tablet  to  produce  a  Utility 
Man  that  closely  resembled  our 
cover.  Turner  displayed  well- 
balanced  colors,  a  good  sense  of 
proportions,  and  well  defined 
shapes. 

When  she  read  about  the  Color  the 
Cover  Contest,  Marta  Taylor  ran  out 

and  bought  a  KoalaPad  to  produce 
her  entry,  one  of  the  more  abstract 
renditions  we  saw,  Taylor,  who  hails 
from  Douglasville,  Georgia,  de- 
picted Utility  Man  surrounded  by  a 
fanciful  collection  of  balloons. 
While  not  a  true  copy  of  the  cover, 
the  entry  contains  unique  imagina- 
tion  and   a  charming,  simplistic 

innocence.  continued  on  pase  24 
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V. 


Gaston  Aladin 


Runner-up  winners  are  not  pre- 
sented in  any  particular  order  on 
tinese  pages.  Color  The  Cover  Con- 
test first  prize  is  an  Indus  GT  disk 
drive.  Runner-ups  receive  their 
choice  of  any  single  item  in  the  Antic 
Arcade  Catalog. 

Antic  Disl<  subscribers:  You  v/ill 
find  the  winning  contest  entry  as  a 
bonus  on  your  August  disk  NEXT 
month.  It  was  too  large  to  fit  any- 
where on  the  current  issue's  two- 
sided  disk. 


Alfred  Gomez 


runners-up 


♦   ♦   ♦ 


Tim  O'Connell 


Nick  Turner 


/////^^ 


Marta  Taylor 
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PRINT  SHOP 


WELL  WORTH  THE  WAIT! 


by  JACK  POWELL,  Antic  Technical  Editor 


§  g    up.  Looks  like  the  dry  spell 
^^  for  Atari  software  has  finally 
^7  ended.  At  last,  the  big  guns  are 
#  coming  out:  EPYX  is  marketing 
the  fabulous  Lucasfilm  games,  Paper- 
clip is  on  the  way,  and  Alternate 
Realities  will  finally  become  a  real- 
ity— courtesy  of  Datasoft. 

Then  just  the  other  day  a  bright 
yellow  box  came  in  from  Broder- 
bund.  The  Atari  edition  of  Print 
Shop  had  finally  arrived! 

Print  Shop  is  a  graphics  printing 
program  that  Apple  owners  have  been 
enjoying  for  quite  a  while.  It's  current- 
ly Broderbund's  hottest  selling  item, 
and  the  reason  why  is  easy  to  see. 
From  the  bright  yellow  packaging  to 
the  foolproof  programming.  Print 
Shop  is  so  darn  friendly  you  feel  like 
Bambi  has  just  toddled  into  your 
Atari. 

Wlien  the  package  arrived,  we  tore 
off  the  wrapping  and  booted  the  disk. 
The  very  first  page  of  the  reference 


manual  said  to  ignore  the  documen- 
tation, start  up  the  program  and  just 
follow  the  prompts.  Within  minutes, 
the  Antic  offices  were  littered  with 
gaily  decorated  printer  paper 

If  you've  always  dreamed  of  being 
an  art  director.  Print  Shop  is  exactly 
what  you've  been  waiting  for  You'll 
be  cranking  out  flashy  greeting  cards, 
stationery,  banner's  and  signs,  featur- 
ing clever  graphics  and  a  variety  of 
different  type-styles.  You  can  decorate 
with  ready-made  graphics  icons  that 
are  supplied,  or  design  your  own,  (My 
own  "Opus  The  Penguin"  has  been 
very  well  received.)  The  results  are 
remarkably  professional. 

The  program  is  entirely  menu- 
driven  and  leads  the  user  easily 
through  the  options.  In  the  tradition 
of  all  Broderbund's  Apple-oriented 
programs,  there  is  an  almost  complete 
lack  of  sound,  but  this  is  essentially 
a  utility  so  it's  not  too  bothersome. 

Before  you  rush  out  and  buy  Print 


Shop,  make  sure  you  have  a  dot- 
matrix  printer  capable  of  graphics.  No 
matter  how  nice  the  program,  it  won't 
work  on  your  letter-quality  Atari  1027 
printer  Print  Shop  handles  most 
graphics  printers.  They're  all  listed  on 
the  box.  If  in  doubt,  callBroderbund. 

As  fun  as  it  is.  Print  Shop  has  its 
limitations.  "Vbu've  eight  type-fonts  to 
choose  from  and  there's  no  way  to  de- 
sign your  own.  The  disk  comes  with 
60  icons  or  graphic  designs.  And  you 
may  also  design  your  own  using  the 
Print  Shop  graphics  editor,  but  as 
usual  with  multiple  utility  packages, 
the  graphics  editor  is  a  crude  joy- 
stick/Koala Pad  pixel  editor  which 
does  not  allow  for  patterned  fills  or 
other  desirable  sophistications. 

It  would  certainly  be  nice  if  we 
could  use  one  of  the  many  versions 
of  Micro  Illustrator  to  design  our 
icons,  but  this  is  not  the  case.  And, 
since  the  disk  files  have  been  hidden, 
continued  on  page  28 
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FANTASTIC  PRINTER 
^24''  SALE!!  ^24*' 

Commadare  64  —  VIC  20  —  A  tari 

i^  40  And  80  Column  Printers  ii   Up  To  100  Characters  Per  Second  t(  Full  Graphics  Capability 
iV  Upper  And  Lower  Case  t^  Advanced  Thermal  Technology  For  Quiet  Operation 


3150  Alphacom  81-100  CPS  80  Column  Printer 

Now  you  con  have  o  printer  for  the  cost  of  a 
large  box  of  paper.  This  printer  prints  in  upper 
and  lower  case  with  true  lower  descenders. 
Comes  with  1  roll  of  paper  and  power  adapter. 
With  the  intelligent  interfaces  (sold  below)  you 
can  do  Ascii  graphics  as  well  as  Atari  or 
Commodore  graphics.  Plus  you  can  do 
underlining  and  expanded  modes.  Print  out 
pictures,  program  listings,  word  processing 
pages,  etc.  Perfect  for  the  student  or 
homeowner.  List  $199.00.  Sale  $39.95. 

80  Column  Extra  Paper  LIST  SALE 

3153  40  Meter  Rolls  Blue  $14.95  $3.95 

3154  40  Meter  Rolls  Black  S19.95  $4.95 

3155  25  Meter  Rolls  Blue  (2  per  pkg.)  S19.95  $7.95 

3156  25  Meter  Rolls  Black  (2  per  pkg.)  519.95  $8.95 


3100  Alphacom  42-80  CPS  40  Column  Printer 

Print  out  listings  with  full  computer  character 
sets  (interface  required,  see  below).  Print  ir 
upper  and  lower  case.  Comes  with  a  roll  of 
paper  and  all  power  adapters  needed.  Perfect 
for  a  spare  printer  or  program  lister.  List  $99.00. 
Sale  $24.95. 

40  Column  Extra  Paper  LIST  SALE 

3103  25  Meter  Rolls  Blue  S9.95  $3.00 

3104  40  Meter  Rolls  Blue  516.95  $3.95 

3105  25  Meter  Rolls  Black  (1  per  pkg.)  512.95  $3.95 

3106  25  Meter  Rolls  Blue  (2  per  pkg.)  519.95  $5.95 

3107  25  Meter  Rolls  Block  (2  per  pkg.)  519.95  $5.95 


3101  Intelligent  Commodore  Interface  —  Allows  you  to 
hook  the  40  or  80  column  printer  to  the  Commodore  64,  do 
program  listings,  allows  software  screen  dumps,  etc. 
Includes  Commodore  graphics  and  reverse  characters. 
(Specify  40  or  80  Column)  List  $59.95. 
40  Column  Sale  $9.95.  80  Column  Sale  $14.95. 


Add  SIO.OO  for  shipping,  handling  and  insurance.  Illinois  residents 
please  add  6%  tax.  Add  S20.00  for  CANADA,  PUERTO  RICO,  HAWAII, 
ALASKA,  APO-FPO  orders.  Canadian  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA. 
Enclose  Coshiers  Check,  Money  Order  or  Personol  Check.  Allow  14 
days  for  delivery.  2  to  7  days  for  phone  orders,  1  day  express  mail ! 
VISA  —  MASTER  CARD  —  C.O.D.  No  C.O.D.  to  Canada,  APO-FPO 


3102  Intelligent  Atari  Interface  —  Allows  you  to  hook 
the  40  or  80  column  printer  to  the  Atari  computer,  do 
program  listings,  allows  software  screen  dumps,  etc 
Includes  Atari  graphics  and  reverse  characters.  (Specify  40 
or  80  Column)  List  $59.95. 
40  Column  Sale  $9.95.  80  Column  Sale  $14.95. 


We  Love  Our  Customers 

Box  550,  Barrington,  Illinois  60010 

312/382-5244  to  order    dcp.  ant/6 


JjL  Lowest  Price  In  The  USA ! 

ATARI  Computer  System  Sale 

•   Students   *   Word  Processing   •    Home   *   Business 


$449 

LOOK  AT  ALL  YOU  GET  FOR  ONLY  *r      M     m  ^ 

SYSTEAA  PRICE 

©Atari  800XL  64K  Computer 
©Atari  1050  127K  Disk  Drive 
©Atari  1027  Letter  Quality  20  CPS  Printer 

Atari  Writer  Word  Processer 

Atari  BASIC  Tutorial  Manual 

All  connecting  cables  &  T.V,  interface  included. 


LIST  PRICE 

$299.00 

399.00 

399.00 

79.95 

16.95 


INDIVIDUAL 
SALE  PRICE 

$109°° 
^3900 

199°° 
39" 
12" 


SAVE  $100 

All  5  ONLY 
$^^1900 

SYSTEM 
SALE  PRICE 


Monitors  sold  seporetly. 


TOTALS 


$1193.90    $549.90 


AAONITOR   OPTIOIMSs  List  Sale 

>     12"  Hi  Resolution  Green  or  Amber  Screen         $199.00  99.00 

13"  Hi  Resolution  Color  $399.00  195.00 


•■V 


Add  $9.95  for 

Connection  Cables 

and  SIO  for  UPS 


15  DAY  FREE  TRIAL.  We  give  you  1  5  days  to  try  out  this  ATARI  COMPUTER  SYSTEM!  !  If  it  doesn't  meet  your  expectations,  just  send  it 
bock  to  us  prepaid  and  we  will  refund  your  purchase  price!  ! 

90  DAY  IMMEDIATE  REPLACEMENT  WARRANTY.  If  any  of  the  ATARI  COMPUTER  SYSTEM  equipment  or  programs  fail  due  to  faulty 
workmanship  or  material  within  90  days  of  purchase  we  will  replace  it  IMMEDIATELY  with  no  service  charge!  ! 


Best  Prices  •  Over  1000  Programs  and  500  Accessories  Available  •  Best  Service 
•  One  Day  Express  Mail  *  Programming  Knowledge  *  Technical  Support 


Add  $25.00  for  shipping  and  handling!!       oept.  ant/6 
Enclose    Cashiers   Check,    Money   Order   or    Personal    Check. 
Allow  14  days  for  delivery.  2  to  7  days  for  phone  orders.  1  day 
express    mail!    We    accept    Visa    and    MasterCard.    We    ship 
C.O.D.  to  continental  U.S.  addresses  only. 


COMPUTER  PIRECT 

We  Love  Our  Customers 
Box  1001,  Barrington,  111.60010 

312/382-5050  to  order 


PRINT  SHOP 

continued  from  Page  25 

a  programming  hobbyist  would  have 
a  difficult  time  writing  a  conversion 
program. 

One  frustrating  omission  is  Print 
Shop's  inability  to  make  labels.  What 
about  all  my  home-made  peach  pre- 
serves and  canned  prunes? 


Nevertheless,  Print  Shop  is  the  kind 
of  program  that  should  appeal  to  a 
huge  audience.  I  can't  think  of  a  bet- 
ter computer  gift  for  children^ — if  the 
adults  will  let  them  get  their  hands  on 
it.  We  really  should  all  thanJc  Broder- 
bund  for  converting  this  hit  software 
to  the  Atari.  Now  if  they  would  only 
buckle  down  and  get  to  work  on  an 


Atari  conversion  of  Championship 
Lode  Runner.  .  . 


PRINT  SHOP 

Broderbund  Software 

17  Paul  Drive 

San  Rafael,  CA  94903 

(415)479-1170 

$44.95-48K  disk 


□ 


for  the  ATARI  800  or  XL 


Cut  your  programming  time  from  tiours  to  seconds,  and  fiave  33 
direct  mode  commands  and  functions.  All  at  your  fingertips  and 
all  made  easy  by  ttie  MONKEY  WRENCH  II. 

The  MONKEY  WRENCH  II  plugs  easily  into  ttie  cartridge  slot  of  your 
ATARI  and  works  with  the  ATARI  BASIC. 

Order  your  MONKEY  WRENCH  II  today  and  enjoy  the  conveniences 
of  these  33  features: 

•  Line  numbering 

•  Renumbering  basic  line  numbers 

•  Deletion  of  line  numbers 


•  Variable  and  current  value 
display 

•  Location  of  every  string 
occurrence 

•  String  exchange 

•  Move  lines 

•  Copy  lines 

•  Up  and  down  scrolling  of 
basic  programs 

The  MONKEY  WRENCH  II  also  contains  a  machine  language  monitor 
with  16  commands  that  can  be  used  to  interact  with  Aor»  r»c 

the  powerful  features  of  the  6502  microprocessor.  $  ^tV  .VO 


Special  line  formats  and 
page  numbering 
Disk  directory  display 
Margins  change 
Home  i<ey  functions 
Cursor  exchange 
Uppercase  iocl< 
Hex  conversion 
Decimal  conversion 
Machine  language  monitor 
DOS  functions 
Function  l<eys 


Have  You  KISSed 
Your  Atari  Lately? 

Introducing  "KISS",  a  new,  simpler, 

more  powerful  Word  Formatter/Processor 

for  your  Atari  800,  600XL,  and  800XL 

"KISS"  comes  in  a  cartridge,  and  is  designed  for  the  occa- 
sional user,  yet  simple  enough  for  beginners  and  children. 
It  comes  with  an  easy  to  read  manual,  that  contains  example 
text  files.  Check  out  these  other  "KISS"  features: 


Input  of  text  is  via  standard 

ATARI  screen  editor  -  so 

there  Is  nothing  new  to  learn 

Only  13  commands  to 

process  text 

Text  oa  n  be  sent  to  screen 

or  printer 

Single  page  or  Ian-folded 

paper  can  be  used  by 

printer 


•  Prints  English  error  messages 

•  The  "KISS"  cartridge  does  not 
have  to  be  installed  in  order 
to  input  text  information 

•  Automatic  page  numbering 
on  output 

•  Text  can  be  justified  to  both 
the  left  and  right  margins 

•  Can  be  used  for  letters,  reports, 
term  papers,  etc. 


Call  us  today  for  your  "KISS"  Only  $19.95 


3239  Linda  Dr. 
Winston-Salem,  N.C.  27106 
(919)748-8446 
Send  for  free  catalog! 
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Your  Atari  master  weaver 


by  GERALD  M.  HAGOPIAN 

Design  intricate  39-thread  iveaving 
patterns  for  the  inkle  loom  ivith  this 
BASIC  program.  (If you  're  a  weaver, 
inkle  loom  won't  sound  strange.) 
Color  Inkle  Loom  works  on  all  Atari 
computers  with  24K  memory. 
24K  cassette,  32K  disk 


erious  weavers  regularly  face 
the  process  of  selecting  col- 
ors and  patterns  for  their 
various  looms.  And  as  you 
know,  displaying  intricate  color  pat- 
terns is  a  job  that's  duck  soup  for  the 
Atari.  With  the  Color  Inkle  Loom  pro- 
gram, you  can  design  patterns  for  use 
with  the  inkle  loom  which — in 
weaver's  jargon — is  a  rvvo-harness 
plain  weave  loom. 

This  program  should  be  a  good 
start  for  Antic  readers  who  might 
wish  to  develop  design  software  for 
looms  that  ai-e  more  complicated  than 
the  widely  used  inkle. 

ATARI  WEAVING 

Type  in  Listing  1  and  check  it  with 
TYPO  II.  SAVE  it  before  you  RUN  it. 
After  the  opening  screen,  you'll  see 
a  menu.  You  can  choose  to  Create  a 
new  weaving,  Save  a  weaving.  Load 


a  previous  weaving,  or  Exit  the 
program. 

If  you  are  creating  a  new  weaving, 
you'll  be  asked  for  the  number  of 
threads  per  harness,  up  to  39  each. 
After  typing  a  number,  you'll  be  ask- 
ed if  you're  sure.  Type  [  Y]  to  continue, 
anything  else  to  go  back. 

Then  choose  colors,  starting  with 
harness  #1,  thread  #1,  followed  by 
harness  #1,  thread  #2,  and  so  on.  In 
each  case,  you'll  be  asked  for  the  col- 
or letter — which  you'll  take  from  the 
marked  band  of  colors  across  the 
screen.  Once  again,  you'll  be  asked  if 
you're  sure.  Type  [Y]  to  continue, 
anything  else  to  go  back. 

When  you're  done  choosing  colors, 
you'll  be  asked  if  you're  ready  to 
weave.  Type  [Y]  to  continue.  You  can 
start  weaving,  or  change  the  intensit\ 
of  the  colors  you've  chosen.  With  the 
spectrum  band's  range  of  16  colors, 
and  the  Change  Color  Value  option, 
you  can  produce  any  of  the  Atari's 
colors. 

Gerald  M.  Hagopian  is  a  freelance 
consulting  designer  working  ivith 
consumer  products  and  interior 
design. 


Listins  on  page  60 
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A 


lay  it 


gain 


,  ^^taril 


They  laushed  when  I  sat  down  at  the  800  XL 


^^B^kay,  I  confess.  Before  I 
^^^T  ^  settled  on  writing  I  was 
^f  ^I  a  committed  would-be 

^^■*^^  musician.  As  a  kid  and 
teenager  I  must  have  spent  hundreds 
of  hours  teaching  myself  piano, 
rhythm  guitar  and  chromatic  har- 
monica. I  played  first  trombone  in  the 
high  school  band,  thus  becoming 
automatically  eligible  for  a  music 
scholarship  to  state  teachers  college 
if  I  had  wished  to  go. 

It  was  relatively  easy  for  me  to  pick 
up  the  rudiments  of  playing  different 
instruments.  But  there  would  always 
come  a  time — much  too  soon — when 
I  ran  into  the  upper  limits  of  my 
musical  coordination.  I  could  never 
seem  to  really  master  any  instrument. 

I  used  "to  daydream  about  some 
kind  of  future  electronic  musical  in- 
strument coming  along  that  would 
automate  things  the  things  I  couldn't 
get  my  fingers  to  do  and  let  me  ex- 
press my  musical  ideas  without  being 
an  instrumental  whiz.  Little  did  I 
know  those  instruments  would  be- 
come a  reality — even  an  affordable 
reality — in  less  than  two  decades. 

Recently  my  musical  frustrations 
have  been  much  more  localized.  It 
seemed  as  if  all  the  good  musical  soft- 
ware and  plug-in  computer  piano- 
keys  from  companies  like  Sequential 
Circuits  or  Passport  were  being  made 
only  for  the  Apple  II  or  the  Commo- 
dore 64. 


by  NAT  FRIEDLAND,  Antic  Editor 

1985  ATARI  MUSIC 

However,  in  1985  all  this  has  changed. 
Some  truly  phenomenal  new  musical 
peripherals  for  our  favorite  personal 
computer  are  about  to  make  the  Atari 
the  new  champion  of  computer-as- 
sisted musicmaking. 

In  this  article  you  will  read  about: 

•  A  new  kind  of '  music  generator' ' 
software  that  lets  you  compose 
and  improvise  in  real-time  at  the 
Atari  keyboard.  The  four-voice 
sound  is  tracked  by  colorful  geo- 
metric graphics.  Press  a  couple 
of  Atari  keys  and  you'll  feel  like 
the  next  Brian  Eno. 

•  A  software  and  "black-box"  pro- 
duct that  lets  your  Atari  emulate 
an  advanced  l6-track  digital 
recording  studio. 

•  A  remarkably  powerful  new 
MIDI  synthesizer  that  sells  for  no 
more  than  what  an  Atari  disk 
drive  used  to  cost. 


1.  VIRTUOSO 

At  a  music  studio  in  Queens,  New 
\t)rk  last  year  you'd  find  three  kids  at 
a  time  sitting  in  front  of  Atari  com- 
puters and  listening  on  earphones 
while  geometric  patterns  of  color 
flashed  across  the  video  screen.  These 


VIRTUOSO  screen. 

kids  were  taking  two-hour  lessons  in 
creating  music  on  the  Virtuoso 
sound  generator  and  when  the  ses- 
sions were  over  their  parents  often 
had  to  drag  them  away  from  the 
machines. 

Virtuoso  is  such  a  unique  new  ap- 
proach to  musicmaking  that  it's  not 
easy  to  describe.  It's  one  of  the  closest 
things  in  the  real  world  to  the  multi- 
arts  competitions  that  Herman  Hesse 
wrote  about  in  his  classic  literary  fan- 
tasy The  Bead  Game.  In  that  book, 
Hesse  wrote  about  chess-Uke  contests 
where  one  player's  move  might  be  a 
theme  from  a  symphony  and  the  op- 
ponent's countermove  could  be  a  line 
of  a  poem  or  a  section  of  a  paint- 
ing..  . 

Virtuoso  gives  you  a  user-friendly 
method  of  tapping  the  extremely  fast 
and  powerful  changes  that  a  com- 
puter can  control  in  every  aspect  of 
music  performance.  It  bypasses  the 
limits  of  traditional  musical  notation 
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MIDITRACK  II 

and  uses  an  almost  self-explanatory 
color  graphic  display  that  delivers 
mathematical  insights  into  the  struc- 
ture of  music. 

USING  VIRTUOSO 

You'd  enter  a  musical  pattern  into  Vir- 
tuoso from  the  Atari  keyboard,  or  call 
up  one  from  about  480  that  could  be 
stored  on  a  single  disk.  The  pattern 
would  start  sounding  and  the  lines  of 
colors  would  trace  it  visually.  At  this 
point  you  could  start  creating  all  sorts 
of  changes  in  the  pattern — which  you 
would  hear  and  see  immediately. 

As  the  pattern  was  playing,  you 
could  change  its  speed,  rhythm, 
pitch,  tone,  volume,  key  scale,  etc.  You 
could  enter  new  patterns  any  time. 
There's  even  a  Future  mode  where 
you  can  enter  changes  before  they  are 
due  to  be  played.  The  effect  of  con- 
trolling so  much  musical  power  so  ef- 
fortlessly feels  something  like  con- 
ducting an  orchestra  at  the  same  time 
as  you  are  composing  the  music  that 
it  plays. 

In  technical  terms,  Virtuoso  is  a 
sound  generator  that  produces  four 
voices  from  the  POKEY  chip.  You  can 
make  instant  real-time  changes  in  the 
voices  in  any  of  six  parameters.  Four 
computers  running  Virtuoso  can  be 
linked  together  to  have  up  to  16  in- 
dependent channels  controlled  by 
one  Atari. 


As  a  sound  editor,  Virtuoso  can  syn- 
chronize multiple  voices  with  1/60  of 
a  second  accuracy  and  tune  them 
within  10  steps  of  intonation.  Any 
musical  passage  can  be  moved  any- 
where, saved,  and  replayed  in  any  key 
and  in  virtually  any  rhythm. 

COMING  SOON 

This  groundbreaking  product  is  a  col- 
laboration between  former  JuUiard 
Music  Professor  Joseph  Lyons  and 
Frank  Schwartz,  a  highly  experienced 
programmer  and  electronics  designer. 
Originally,  Virtuoso  was  financed  by 
Warner  Leisure  Software,  who  natu- 
rally wanted  it  for  the  Atari  and  in  car- 
tridge form. 

After  Warner  Software  shut  its 
doors  last  )'ear,  Schwartz  and  Lyons 
obtiiined  new  funding  and  are  hop- 
ing to  have  Virtuoso  on  the  market  by 
August.  At  this  point,  Virtuoso  is  to 
be  on  disk,  available  for  either  the 
Atari  or  Commodore  64,  and  priced 
at  about  S50. 

Not  only  that,  a  S150  MIDI  inter- 
face for  Virtuoso  is  also  being  readied 
for  August  release.  Virtuoso  will  there- 
fore be  usable  as  a  visual  language  for 
MIDI  controllers — not  only  for  music, 
but  also  for  lighting  and  sound  effects, 
lasers,  etc.  Once  again,  shades  of 
Hesse's  The  Bead  Game. 


Lyons  and  Schwartz  are  as  enthu- 
siastic about  the  Casio  CZ-101  syn- 
thesizer as  Antic  is,  and  Virtuoso  will 
definitely  run  on  this  outstanding 
electronic  instrument — ^which  will 
provide  even  greater  power,  versa- 
tility, sound  quality  and  handling  ease 
than  the  Atari  POKEY  chip. 

PLEASE  NOTE  that  Virtuoso  is  a 
product  that  is  still  under  develop- 
ment and  has  not  yet  been  released 
at  this  writing.  Antic  will  print  more 
news  of  Virtuoso  as  soon  as  it  be- 
comes available,  so  please  do  not 
phone  or  write  us  asking  where  to  get 
it  yet. 

How  does  Antic  know  that  Vir- 
tuoso is  for  real?  There  are  two  rea- 
sons. 1.  We  have  heard  (and  seen)  Joe 
Lyons  play  four-part  Bach  Fugues  on 
it.  2.  Antic  has  a  first-generation  Vir- 
tuoso cartridge  that  Frank  Schwartz 
gave  us. 

Our  prototype  Virtuoso  cartridge  is 
packed  solid  with  microchips  and  ac- 
tually a  plug-in  board.  Its  music  gen- 
erating functions  are  100%  in  work- 
ing order,  but  figuring  out  how  to  play 
it  from  only  the  skimpy  documenta- 
tion notes  is  not  too  easy.  At  present 
you'd  need  Lyons  standing  over  your 
shoulder  to  explain  things,  the  way  he 
does  in  his  studio  lessons. 

Thats  why  the  final  development 
work  is  concentrated  on  making  Vir- 
tuoso even  fi-iendlier  to  operate.  There 
will  be  icon  menus,  an  inexpensive 
membrane  keyboard  for  musical  in- 
put (if  you're  not  using  a  MIDI  instru- 
ment), and  six  levels  of  complexity 
that  will  gradually  take  you  from 
beginner  to  expert  status. 


2.  MIDITRACK  II 


MIDITRACK  II  has  been  wowing 
them  at  computer  shows  and  musical 
instrument  shows  since  last  fall.  It's 
available  at  various  professional-music 
stores  around  the  countr}'  or  by  mail 
from  the  manufacturer  for  S349.  (De- 
tailed manufacturer  information  will 
be  found  at  the  end  of  the  article.) 
Interestingl)',  your  Atari  will  be  the 
least  expensive  component  of  this 

continued  on  next  page 
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music  system.  Bob  Moore  of  Hybrid 
Arts,  makers  of  MIDITRACK II,  gives 
a  slightly  surprising  reason  why  the 
Atari  was  chosen  to  drive  the  system. 
"The  Atari  is  the  sturdiest  of  the  in- 
expensive lightweight  computers,"  he 
said.  "We  believed  it  would  have  the 
best  chance  to  survive  a  long  profes- 
sional road  tour." 

MIDITRACK  II  disk  software  and 
the  included  MIDIMATE  interface  box 
work  with  any  Atari  that  has  48K 
memory.  The  Atari  itself  does  not  pro- 
duce any  sounds  with  its  POKEY  chip 
here.  It  simply  acts  as  the  controller 
for  up  to  16  channels  of  information 
transmitted  by  MIDI  instruments. 

WHAT'S  MIDI 

MIDI  stands  for  Musical  Instrument 
Digital  Interface.  It's  a  set  of  electronic 
stiindards — just  as  ASCII,  RS-232  and 
Parallel  Centronics  are  standards — 
that  allows  electronic  musical  instru- 
ments to  coordinate  and  exchange 
digitally  encoded  sound  information. 

Moore,  who  was  primarily  a 
Hollywood  studio  musician  before 
coming  up  with  the  idea  for  MIDI- 
TRACK  II,  said,  "If  you've  already  got 
an  Atari  and  disk  drive,  it  should  cost 
you  no  more  than  S3, 000  to  have  a 
fully  professional  digital  recording 
setup.  (To  just  have  fun  with  your  Atari 
music  system,  you  could  get  away 
with  S5OO  or  less.  More  on  this  later.) 

What  you  need  for  a  fully  profes- 
sional system  is  a  main  synthesizer,  a 
drum  machine,  and  probably  a  se- 
cond synthesizer  to  give  you  a  bit 
more  variety  of  sounds.  The  second 
synthesizer  doesn't  even  need  to  have 
a  keyboard  because  you  can  play  it 
from  the  main  synthesizer. 

At  the  other  extreme,  you  could 
theoretically  daisychain  huge  gangs  of 
MIDIMATEs  and  electronic  instru- 
ments. You  could  mix  16  completed 
tracks  onto  a  single  track,  make  15 
new  tracks  :uid  mix  everything  down 
to  track  2,  and  then  repeat  the  pro- 
cess. You  could  run  a  symphony  or- 
chestra of  synthesizers  from  a  single 
Atari,  even  a  stadium  filled  with 
synthesizers.  .  . 

Normally  the  way  you'd  operate  a 
MIDITR/^lCK  II  system  is  something 
like  this:  First  you'd  set  up  a  drum  pat- 


tern and  record  it  on  track  1.  Next 
you'd  adjust  your  synthesizer  to 
sound  like  a  bass  and  play  an  accom- 
paniment onto  track  2.  With  your 
"rhythm  section"  in  place  you  could 

Figure  1 
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A  typical  system  hook  up  is  shown  in  figure  1  . 
Note  that  synth  A  is  the  master  synth  because 
both  its  MIDI  IN  and  MIDI  OUT  are  connected 
to  the  MIDIMATE  interface  box. 


then  start  layering  all  sorts  of  in- 
teresting synthesized  sounds  on  top 
to  make  melodies  and  harmonies  in 
the  rest  of  the  available  tracks. 

STUDIO  IN  A  BOX 

Once  you  were  finished,  you  would 
have  a  fully  edited  arrangement  for 
MIDI  instruments  which  you  could 
then  record  on  tape  for  combination 
with  vocals  or  non-MIDI  instruments. 
The  length  of  the  music  you  could 
save  would  depend  somewhat  on 
how  many  notes  were  in  the  piece. 
The  limit  per  file  is  3,000  sequenced 
notes. 

By  the  way,  usually  you  can  simul- 
taneously call  up  more  than  one  track 
from  a  single  MIDI  instrument.  Many 
synthesizers  could  give  you  as  much 
as  8  simultaneous  tracks. 

On  the  whole,  the  MIDITRACK  II 
documentation  is  excellent.  Once  you 
have    plugged    everything    in,    the 


manual  suggests  that  you  simply  press 
your  Atari  spacebar,  play  something 
on  your  synthesizer,  and  then  press 
the  spacebar  again.  That's  all  it  takes 
for  a  recording  and  playback! 

One  of  our  testers  kept  losing  his 
music  at  first,  every  time  he  tried  to 
save  a  track.  But  once  he  figured  out 
that  this  was  caused  by  holding  down 
the  Inverse  Video  key  too  long  dur- 
ing the  save  command,  there  were  no 
problems. 

MIDITRACK  II  is  designed  to  op- 
erate like  a  professional  multitrack 
tape  recorder.  So  it  contains  all  the 
features  you  would  normally  expect 
to  find  in  a  recording  studio.  All  16 
tracks  are  independent  unless  you 
mix  them  together.  "Vbu  can  syn- 
chronize tracks  or  change  the  speed 
of  the  entire  recording.  You  can  over- 
dub  or  transpose  tracks.  You  can 
automatically  locate  any  spot  on  the 
recording.  You  can  "punch  in"  any- 
where to  record  difficult  passages  one 
note  at  at  time. 

MIDITRACK  II  even  supports  the 
advanced  technique  of  quantization, 
or  autocorrect.  For  example,  if  your 
timing  was  a  bit  uneven  when  you 
were  trying  to  play  that  flashy  bass 
part  you  could  set  the  notes  to 
automatically  come  out  on  the  beat. 


3.  CASIO  CZ-101 


Most  Atari  owners  who  buy  MIDI- 
TRACK  II  will  probably  decide  to  use 
the  new  Casio  CZ-101  synthesizer  as 
their  primary  keyboard.  That's  be- 
cause the  CZ-101  sells  for  about  one- 
fourth  the  price  of  any  comparable 
synthesizer!  It  lists  for  $499  but  has 
been  on  sale  at  Macy's  for  as  low  as 
S300. 

The  instruments  that  Bob  Moore 
brought  along  to  demonstrate  MIDI- 
TRACK  II  were  the  Yamaha  DX7  syn- 
thesizer which  has  a  list  price  of 
S  1,995  and  the  Yamaha  RXII  drum 
machine  wliich  lists  for  $895.  Both 
of  these  instruments  are  very  popular 
with  professional  musicians  and  are 
not  considered  unusually  high-priced 
in  comparison  to  the  competition. 

At  the  time,  Moore  told  Antic  that 
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a  new  low-priced  but  powerful  syn- 
thesizer from  Casio  was  due  to  be 
released  shortly  and  it  would  ap- 
parently be  at  least  somewhat  com- 
parable with  the  DX7.  Well,  the 
CZ-101  was  shown  at  the  Consumer 
Electronics  Show  and  Casio  kindly  let 
us  have  one  to  use  with  our  MIDI- 
TRACK  II. 

ST  OF  SYNTHS 

We  swiftly  discovered  that  the  CZ-101 
is  considerably  more  than  merely  a 
stripped-down  version  of  the  DX7.  In 
fact,  this  Casio  could  almost  be  con- 
sidered the  Atari  ST  of  sythesizers — 
it  delivers  far  more  "power  without 
the  price"  than  anything  else  in  its 
class.  Despite  the  Casio  brandname 
we  are  talking  about  a  real  synthesizer 
here,  not  an  "electronic  music-maker" 
with  one-key  chords  and  preset  drum- 
bass  patterns.  (It  doesn't  have  a  built- 
in  speaker  either) 


Figure  2 


has  more  waveforms,  envelopes, 
oscillators  and  more  ways  to  combine 
these  soundmaking  elements  than 
most  previous  synthesizers. 


Key  ON 


Key  OFF 


END  Step 


Fig.  2  shows  an  example  of  an  envelope  using 
all  8  steps.  In  this  example,  there  are  two 
attacks  before  the  Sustain  Point  as  well  as  a 
third  attacl<  after  releasing  the  keys.  This  shows 
how  you  even  have  the  possibility  of  setting 
an  "after-envelope". 

In  many  ways  the  CZ-101  is  even 
more  versatile  than  earlier,  more  cost- 
ly synthesizers.  A  review  in  the  March, 
1985  issue  of  "Keyboard,"  the  top 
magazine  for  electronic  keyboard 
players,  concludes,  "The  CZ-101 
makes  good  use  of  the  latest  digital 
technology.  Its  attractive  features  in- 
clude seven  excellent  envelope  gene- 
rators, good-sounding  waveforms, 
and  several  doubling  modes  for  buil- 
ding up  complex  timbres.  As  an  inex- 
pensive and  versatile  MIDI  slave 
module,  it  could  be  a  very  effective 
addition  to  almost  any  stack." 

Upon  translation  from  synthesizer 
jargon,  what  this  means  is  that  the 
CZ-lOl's  strongest  point  is  its  wide- 
ranging  capability  of  creating  and 
manipulating  synthesized  sounds.  It 


multitrack  compositions  featuring 
your  own  synthesized  sounds  almost 
as  soon  as  you've  got  your  system 
cabled  together 


Figure  3 
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CASIO  CZ-101 


In  this  instrument  you'll  find  a  full 
assortment  of  standard  high-end  syn- 
thesizer features  such  as  pitch-bend 
wheel,  ring  modulator,  portamento, 
octave  shift,  detune  control,  phase 
distortion  sound  generator. 

16  INSTRUMENTS 

The  CZ-101  starts  you  off  with  32 
factory-preset  sounds — flute,  electric 
piano,  violins,  organ,  etc. — that  range 
from  okay  to  pretty  good.  You  can 
reprogram  16  of  these  sound 
"patches"  to  hold  your  own  sound 
creations  (you  can  bring  back  the  fac- 
tory patches  anytime).  Also  there's  a 
slot  for  additional  l6-patch  program- 
mable cartridges. 

People  who  play  piano  by  ear  and 
can  only  play  in  one  key  (usually 
either  all  white  notes  or  all  black 
notes)  will  deeply  appreciate  the 
transpose  button  that  will  instantly 
shift  you  into  even  the  most  complex 
key  (four  flats,  five  sharps,  etc.). 

The  CZ-101  has  49  keys  of  standard 
"mini-keyboard"  size.  Purists  may  in- 
sist that  only  full-size  keys  will  do,  but 
personally  I  enjoy  the  feeling  of  span- 
ning left-hand  tenths  as  effortlessly  as 
1  would  reach  octaves  on  a  full-size 
keyboard. 

A  GREAT  TEAM 

The  CZ-101  works  in  combination 
with  MIDITRACK II  remarkably  effec- 
tively. You  don't  need  to  be  a  musical 
genius  to  record  and  playback  flashy 


And  you  can  dramatically  change 
the  synthesizer  voicings  during  play- 
back and  hear  your  new  sounds  in 
real  time.  Or  if  you  tinker  with  the 
playback  of  the  demonstration  songs 
provided  with  MIDITRACK  11  you  can 
try  out  sounds  as  unique  as  a  Mozart 
Sonata  being  played  on  a  vibraphone 
or  jazz  organ. 

So  tune  up  your  Atari  and  unlock 
your  creativity  With  MIDITRACK  II, 
the  Casio  CZ-101  and  Virtuoso,  you 
might  very  well  be  world's  next 
musical  genius! 

MANUFACTURERS 

MIDITRACK  II 

Hybrid  Arts 

P.O.  Box  480845 

Los  Angeles,  CA  90048 

(818)508-7443 

$349-48K  disk 

CZ-101  SYNTHESIZER 
Casio,  Inc. 
15  Gardner  Road 
Fairfield,  NJ  07006 
(201)  575-7400 
$499  (Suggested  list) 

VIRTUOSO 

Enhanced  Technology  Associates 

125  W.  Duke  Ellington  Blvd. 

New  York,  NY  10025 

$50-48K  disk 

$150— MIDI  interface 

(Available  August  1985  or  later) 
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POWER  WITHOUT  THE  PRICE 
ATARI    AT.  .  .COMPUTER  CREATIONS 


ATARI  HARDWARE 

COMPUTERS 

Atari  800  XL CALL 

Alari  65  XE FOR  NEW  

Atari  1 30  XE    PRICES 


COMPUTERS 

Atari  130  ST 

Atari  520  ST 


DISK  DRIVES 


Atari  1050  CALL 

Indus  GT  (Free  Software) FOR 

Astra  2001  NEW 

Astra  "Big  D" PRICES 


.  -  Atari  SF  324  (3'A"  floppy  disk  2S0K1 

, .  Atari  SF  354  (3'/i"  floppy  disk  500K) 

Atari  SH  317  (3'A"  liard  disk  10  MB) 

Happy  Enhancement  for  Atari 

810  and  1050  Drives 


PRINTERS 

Atari  XTM  201  (Non-impact 
Dot  Matrix  20  CPS)   

Atari  XTC  201  (Color,  non- 
impact Dot  Matrix 
20  CPS)   

Atari  XDM  121  (Daisy  Wheel 

Letter  Quality  12  CPS) CALL 

Atari  XMM  801  (Dot  Matrix, 

Impact  80  CPS) FOR 

Atari  1025  (Dot  Matrix,  Impact 
CPS)    NEW 

Atari  1027  (Letter  Quality)    ..  , 

Atari  ST  504  (Color  Dot  Matrix.     PRICES 
non-impact  50  CPS)    

EPSON  PRINTERS 

LX-80  (80  column)  Call  For 

LX-80  Tractor  Feed  Printsr  8, 

Epson  FX-80-1-  (80  column) . .  .   Interlace 
Epson  RX  1 00-F  ( 1 35  col.) , , , ,  Packages 

STAR  MICRONICS  PRINTERS 

SG-10  (80  column) 

SG-15  (136  column)    CALL 

SD-10  (80  column) FOR 

SD-15  (136  column)    PRICES 

SR-10  (80  column) 

'    SR-15  (136  column)    

SB-10   

Powertype  Daisywheel 

Powertype  Tractor  Feed  

PANASONIC  PRINTERS 

KX-1090 Call 

KX-1091    For 

KX-1092 Prices 

LQ-  3151    

Okimate  10  plus  plug  n"  print 

PRINTER  INTERFACE  CABLES 

MPP-Microprint    49 

MPP-1 150  Parallel  Printer 

Interface  65 

U-Print  A  75 

A-1 6  Interface/Buffer  99 

APE  FaceXLP 65 

APE  Face  12XLP  75 

Microbits  Microstuffer  109 

PRINTER  RIBBONS 

Gemini  Printers  (Black/Blue/ 

Red/Purple/Brn./Grn.)  5 

Epson  Printers    8 

Panasonic  Printers.  Black 10 

Panasonic  Printers,  Color 13 


MONITORS 

Atari  XC  141  (14"  Composite 

Color)   

Atari  XM  148(12"  CALL 

Monochrome.  80  column,  FOR 

low  resolution) PRICES 

Atari  SM  124(12" 

Monochrome.  80  column, 

high  resolution) 

Atari  SC  1  224  (1  2"  RGB  Color) 

Sanyo  1  2"  Green  Screen   79 

Sanyo  1  2"  Amber  Screen  79 

Sanyo  Color  Screen,  13"    209 

Sanyo  9"  Green  Screen 69 

Monitor  Cable  7 

Teknika  1 3"  Color  MJ10 209 

MODEMS 

Atari  1030  Direct  300  Band 

Connect  CALL 

Atari  XM  301  Direct  FOR 

Connect  300  Band PRICES 

MPP-1  OOOE  Modem 109 

Signalman  Mark  XII  Modem  with 

R-Verfer 299 

Mark  X  with  R-Verter 1 69 

CompuServe  Starter  Kit 24 

UPGRADES/ 
ACCESSORIES/BOOKS 

ACCESSORIES 

Flip  n'  File  10 4 

Flipn'  File  15 7 

Original  Flip  n' File  50   14 

Flip  n' File  Carl  Case    12 

Library  Cases  (10  colors)  4 

Disk  Bank/5  (Holds  50)  12 

Disk  Bank(Holds  10)  5 

Power  Strip  (6  outlet)  16 

Lineguard  Spike  Suppressor 13 

Disk  Drive  Cleaning  Kit  13 

MicroMate  Paper 

(20#,  540  sheets.) 10 

Computer  Paper 

(15#.  3200  sheets.)    30 

Printer  Stand  (wire)  16 

Dust  Covers Call  for  availability 

UPGRADES: 

Ram  Rod  X/L  W/Omnimon 99 

Omniview  for  600  XL    49 

B.I.  80  Column  Adaptor    Call 

U.S.  Doubter    65 

MPP64  K   69 

BOOKS: 

Lg.  selection  of  titles  avail Call 


GENERIC  DISKS  AT  FANTASTIC  PRICES 


SS/DD  GENERIC  DISKS  AS  LOW  AS  990 
Generic  100%  Defect-Free/Guaranteed. 

Includes  sleeves,  labels,  write  protect  tabs,  reinforced  hub  rings,  lifetime 
warranty.  (2  boxes  minimum) 

DISKETTES  2  boxes 

(2  bx.  minimum)  3  ■  6  boxes 

10  per  box  7 -10  boxes 

MORE  THAN  1  0  BOXES  . 

•   *  DEALER  INQUIRIES  INVITED  •   • 


SS/DD 

DS/DD 

$11.99 

$13.99 

$10.99 

$12.99 

$    9.99 

$11.99 

.  CALL! 

COMPLETE  LINE  OF  ATARI  SOFTWARE 


SOFTWARE 

EPYX 

Dragonriders  of  Pern(D) 28 

Summer  Games  28 

Pitstop  11(D) 28 

Ballblazer(D)  28 

Rescue  on  Fractalus  (D) 28 

Temple  of  Apshai  (D) 25 

ACCESS 

Beach  Head  (D)    24 

Beach  Head  II  (D) 24 

Raid  Over  Moscow  (D)  28 

ACTIVISION 

Decathalon  (R)   21 

Pitfall  II  (R)   21 

Space  Shuttle  (R) 2I 

Ghost  Busters  (D)    24 

AMERICAN  EDUCATIONAL 

Spelling  Grades  2  thru   8(D) 15 

Reading  Comprehension  (D)  . , . .    19 
BATTERIES  INCLUDED 

Paperclip  (D)   59 

Homepak 35 

B/Graph   Call 

BRODERBUND  Home  Pak 

Printship(D)  32 

Spelunker  (D) 21 

Stealth  (D) 21 

Whistler's  Brother  (D)  21 

CBS 

Call  for  items  and  prices 
CONTINENTAL 

Home  Accountant  (D) 50 

DATASOFT 

Bruce  Lee 24 

Dallas  Quest   ,   24 

Conan 28 

Letter  Wizard  w/speller  Call 

ELECTRONIC  ARTS 

Archon  (D) 29 

Pinball  Construction  (D)    29 

M.U.L.E.(D)    29 

Murder/Zinderneuf  (D) 29 

One  on  One  (D) 29 

Archon  II  (D)  29 

Music  Construction  (D)  29 

Realm/Impossibility  (D)  29 

Hard  Hal  Mack  25 

AXIS  Assasin  25 

Seven  Cities  of  Gold 29 

Adventure  Construction  Set   29 

Cut  and  Paste  37 


INFOCOM 

Cut  Throats  (D)   24 

Deadline  (D)  32 

Enchanter  (D)   34 

Hitchhiker's  Guide  to 

the  Galaxy  (D)  24 

Infidel  (D) 28 

Planetfall(D)    24 

Sea  Stalker  (D)  24 

Sorcerer  (D)  28 

Starcross(D)    32 

Suspect  (D) 32 

Suspended (D)   32 

Witness  (D)  24 

Zork  I  (D)  24 

Zorkllorlll(D)   28 

Invisiclues  Hint  Books  7 

MICROPROSE 

F-1 5  Strike  Eagle  (D)   24 

Mig  Alley  Ace  (D)  24 

Solo  Flight  (D)  24 

OSS 

Action  (R) 68 

Action  Tool  Kit  (D)   28 

Basic  XL(F!)  68 

DOSXL(D) 28 

MAC/65  (R) 68 

MAC/65  Tool  Kit  (D)   28 

Writer's  Tool  Kit    68 

ORIGIN 

Ultima  III  (D) 42 

SCARBOROUGH 

Mastertype  28 

Net  Worth  52 

SIERRA  ON  LINE 

Ultima  I 26 

Ultima  II  42 

SPINNAKER 

Call  for  items  and  prices 
SYNAPSE 

Quasimodo 18 

Alley  Cat  is 

Syn-File-I- 38 

Syn-Calc  38 

Syn-Trend  28 

Syn-Comm    28 

Syn-Stock 28 

Mindwheel Call 

Essex Call 

TRONIX 

S.A.M 42 

Chatterbee  28 


To  order  call  TOLL  FREE 

1-800-824-7506 


'  No  extra  charge 

for  MasterCard 

or  Visa 


ORDER  LINE  ONLY 


COMPUTER  CREATIONS,  Inc. 

P.O.  Bo  292467  -  Dayton,  Ohio   45429 

For  information  call:  (513)  294-2002  (Or  to  order  in  Ohio) 


^ ^  _,  .  _WM  \^-'»   *-^  wiu^i   111  vyiiiuf 

Order  Lines  Open  8:30  a.m.  to  8:00  p.m.  Mon.-Fri.:  10  a.m.  to  4:00  p.m.  Sat  (Eastern  Standard  Time).  Minimum  SI  0  per  order  COD  (add  $3  00)  Call  loll  fr«  n„mher ,  , 

prices  and  availability  of  product.  Hardware  requiresadditional  freight  charges.  Software  and  accessories  add  13  ooVhnn?n„.nHh^^ 
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GUI  TAR 
TUTOR 


Learn  and  play  guitar 
chords  on  your  Atari 

by  FRANK  IMBUMilC)  and  (illACE  BARRY 


k 


■>S£ 


■ \^« 


June  1985 


^  program  that  diagrams  and  plays 
simtdated  guitar  chords.  The  BASIC 
listing  works  on  all  Atari  computers 
of  any  memor)'  configuration. 

My  great  new  Program  In 
The  Works  wasn't  work- 
ing at  all.  Rather  than 
break  my  new  800XL, 
(which  was  a  serious  consideration  at 
this  point),  I  reached  for  my  guitar.  I 
played  a  song  or  two  while  staring  at 
the  screen,  and  the  idea  for  Guitar 
Tutor  was  bom.  Why  not  create  a  pro- 
gram to  generate,  diagram,  and  play 
guitar  chords:  major,  minor,  seventh 
and  minor  seventh  chord  combina- 
tions? 

To  use  the  program,  first  type  in  the 
BASIC  listing.  Check  it  with  TYPO, 
and  save  an  extra  copy  as  a  backup. 

A  music  background  is  not  neces- 
sary to  understand  or  play  with 
"Tutor"!  The  first  thing  you  will  see 
is  "Pick  a  note  to  build  a  chord  on." 
Take  your  pick  from  the  list  given,  A 
through  G.  Then  you  will  be  asked  to 
pick  a  natural,  flat,  or  sharp.  After  you 
do  that,  you  can  pick  whether  you 
want  your  chord  to  be  a  major,  minor, 
seventh,  or  minor  seventh. 

Now  the  screen  will  diagram  the 
chord  for  you!  These  are  standard 
guitar  chord  diagrams  used  in  music 
books.  Vertical  lines  represent  the  six 
strings  of  the  guitar.  Horizontal  strings 
represent  the  frets.  Dots  represent 
where  you  press  your  fingers.  X's  rep- 
resent strings  that  are  not  strummed, 
and  O's  represent  strings  that  are 
strummed  "open",  with  no  finger 
pressing  on  the  string.  If  two  dots  are 
on  the  same  fret,  "bar"  with  your 
finger — press  more  than  one  string 
down  with  the  flat  of  your  finger. 

If  you  press  "S"  at  this  point,  you 
will  hear  the  four  individual  tones 
which  make  up  the  chord  you  have 
chosen.  To  the  right  of  the  diagram 
you  will  see  a  vertical  line  of  eight 
numbers,  the  eighth  reading  REST.  By 
pressing  a  number  from  one  through 
seven,  you  can  put  the  chord  on  the 
screen  into  a  "memory."  Now  press 
[P]  and  >ou  can  play  your  chords  by 
continued  on  next  page 
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Software  Discounters      ; 

of  America  (&  peripherals,  too!)  V 

For  Orders  Only  —  1-800-225-7638* 

Inquires  and  PA     412-361-5291 
•Free  Shipping  on  orders  over  $100  in  continental  USA 
•No  surctiarge  for  VISA/MASTEPCARD 


S.D.  of  A. 


ACCESS 

Beach  Head(D) . . 

. . .$23 

ACTIVISION 

Decathalon(R). .  . 

...$19 

Designer's  Pencil 

R)  $19 

Ghoslbuster5(D). 

... $21 

Pitfall  II  (R) 

$19 

Space  Shuttle  (R) 

...$19 

ARTWORX 

Bridge  4.0  (TorD)  . 

.    .$18 

Ghostchaser(D)  , 

$16 

Strip  Poker  (D)  .  .  , 

,..$21 

Female  Data  Disk 

.  .    $18 

Male  Data  Disk  .  , 

,..$18 

BIG  FIVE 

Bounty  Bob's  Adv 

(R)$33 

Miner2049er(R)   . 

....$9 

BRODERBUND 

Arcade  Machine  (D)   .$39 

Bank  St.  Wriler(D 

..$43 

Choplifter(D).  .  .  . 

,.$21 

Loderunner (D)   .  . 

...$23 

(basket  Sun  (D)  .  . 

...$27 

Operation 

Whirlwind(D)  .  . 

... $27 

Print  Shop  (D)   .  .  . 

...$29 

Print  Shop  Paper 

Refill 

.      $14 

Serpent's  Star(O) 

,,.$27 

Spelunker(D).  .  ,  . 

$21 

Stealth  (D) 

$19 

Whistler's  Brother 

(D)$19 

CBS 

Astro  Grover(R)    . 

.  ,. $23 

Big  BirdSpc.  Del.(R)  .$17 

Dr.  Seuss  Puzzle  (D)  .$21 

Ernie's  Magic 

Shapes(R)   .... 

.    $17 

Call 


$21 


$21 


$49 


$23 


$19 


$16 


Match  Wits(D| $19 

Math  Mileage(R) .  .  .  ,$19 
Success  w/ Math  ,..Call 
Webster  Word 

Game(R)  

CONTINENTAL 
Book  of  Adv.  Game: 
Financial 

Stralegies(D)  .  .  .$39 
Home  Accountant  (D)$44 
DATASOFT 

Bruce  Lee  (D) $23 

Conan(D) $23 

Dallas  Quest  (D)  .  .  .  .$23 

Dig  Dug  (D)    $19 

Letter/Spell 

Wizard  (D)   $47 

Lost  Tomb  (D) $19 

Pac  (vlan(D) $19 

Pole  Position(D)  .  .  .  .$19 
Sands  of  Egypt  (D)  .  .$17 

Zaxxon(D) $19 

DESIGNWARE 
Creature  Creator(D)  .$19 

Math  Maze(D) $26 

Spellicopter(D) $26 

ELECTRONIC  ARTS 

Archon(D) $27 

Archonll  (0) $27 

Cuts  Paste  W.P.(D)  $35 
Financial 

Cookbook  (D) $35 

Hard  Hat  Mack(D)  .  .$23 
Music  Construction 

Set(D)    $27 

One-On-Qne(D) $27 

Pinball  Construction 

Set(D)    $27 


Realm  of 

Impossibility  (D)  .  .$23 
Seven  Cities  Gold  (D)  $27 
EPYX 
Dragonriders  Pern  (D)$27 

Funw/Arl(R) $19 

Gateway  Apshai  (R)  .$19 
Jumpman  Jr.  (R)  ...  .$19 

Pitstop(R) $19 

Pitslopll(D) $27 

Puzzlepanic(D) $19 

Summer  Games  (D).  .$25 
'with  the  purchase  of  ea. 
Epyx  title,  receive  free 
your  choice  of 
Monster  Maze.  Plat- 
termania  or  Star  War- 
rior (please  give  1st  & 
2nd  choice) 
FISHER  PRICE 
All  Titles  Available 
GAMESTAR 
Star  Bowl 

Football  (TorD)   . 
Star  League 

Baseball  (TorD)  . 
HBJ 

Computer  SAT  (D)  . 
INFOCOM 
Cut  Throats  (D)  .  .  . 

Deadline  (D) $29 

Enchanter (D)   $23 

Hitchhiker's  Guide  to 

the  Galaxy  (D) $23 

Infidel  (D) $27 

Invisiclues   Call 

Planetfall(D) $23 

Seastalker(D) $23 

Sorcerer  (D) $27 

Suspecl(D)  $27 

Suspended  (D) $29 

Witness(D) $23 

2ork  I  (D) $23 

Zork  II  or  III  (D) $27 

KOALA 

Coloring  Series  1(D)  .$12 
Coloring  Series  11(D). $12 
Instant  Programmers 

Guide(D)  $9 

Spider  Eater  (D) $12 

Tablet  w/Painter(D)  ...  * 
Tablet  w/Painler(R)  .Call 
'see  our  display  ad  in 
this  issue  for  lowest 
price  ever 
LJK 

Data  Perfect  (D) $49 

Letter  Perfect  (D) $49 

LEARNING  COMPANY 
Bumble  Games  (D)  .  .$23 
Magic  Spells  (D)  .  . .  .$23 
Moptown  Hotel(D)  .  .$25 
Moptown  Parade  (D)  ,  $25 

WordSplnner(D) $23 

MICRO-LEAGUE 

SPORTS 

Micro-League 

Baseball  (D) $27 

MICROPROSE 

Air  Rescue  1(D) $21 

F-15Strike  Eagle  (0)  .$23 

Helical  Ace  (D)  $19 

Kennedy  Approach(D)  $23 
Mig  Alley  Ace(D)-  .  .  .$23 
Nalo  Commander  (D)  $23 
Solo  Flight  (D) $23 


Spitfire  Ace  (D) $19 

MINDSCAPE 

Bank  St. 

Musicwriter(D)  .  .  .$33 
Crossword  Magic  (D)  $33 
Hally  Project;  Mission 
in  our  Solar 

System  (D) $29 

Tink'sSubt.  Fair(D)   .$19 

MUSE 

Beyond  Castle 

Wolfenstein(D)  .  .  .$23 
Castle  Wolfenstein  (D)$19 
OSS 

Action  (R) $59 

Action  Tool  Kit(D).  .  .$26 

BasicXL(R) $49 

Basic  XL  Tool  Kit  (D).  $26 
DOS  XL  w/Bug  65(D)  $26 

MAG  65  (R) $59 

MAC  65  Tool  Kil(D).  .$26 

Writer's  Tool  (R)    $59 

OMNITREND 

Universe  (D)   Call 

ORIGIN 

Ultimalll  (D) $39 

PROFESSIONAL 
SOFTWARE 

Trivia  Fever  (D)   $25 

SSI 
Battle  for 

Normandy  (D)  . . .  .$27 
Breakthrough  in 

Ardennes(D)   $39 

Broadsides  (D) $27 

Carrier  Force  (D)  .  .  .  .$39 
Combat  Leader  (D)  .  .$27 
Computer  Ambush  (D)$39 
Computer  Baseball(D)  $27 
Computet  OB  (D)  .  .  .Call 
Cosmic  Balance  (D)  .$27 
Cosmic  Balanced  (D)$27 

Eagles  (D) $27 

Epidemic  (D) $23 

Field  of  Fire(D) $27 

50  Mission  Crush  (D)  $27 

Fortress  (D) $23 

Galactic  Adv.  (D) $39 

Imperium 

Galactum(D) $27 

Kampfgruppe(D).  .  ,  .$39 
Knights  ol  Desert  (D)  $27 
Objective  Kursk  (0).  .$27 
Operation  Market 

Garden  (D) Call 

Questron(D) $33 

Rails  West(D) $27 

Reforger '88(D) $39 

Tigers  in  Snow(D) .  .  $27 
War  in  Russia(D)  .  .  .$53 
SCARBOROUGH 

Mastertype(D) $23 

Mastertype(R) $27 

Net  Worth  (D) $49 

SIERRA  ON  LINE 

Dark  Crystal  (D) $25 

Frogger(D) $19 

Ultima  I  (D) $23 

Ultima  11(D) $39 

Wizard  &  Princess  (D)  $21 

WizType(D) $23 

SPINNAKER 
Adventure  Creator  (R)$17 

Aerobics(D) $23 

Alphabet2oo(R)  .  .  .  .$17 
Delta  Drawing  (R)  .  .  .$17 


Pacemaker  (R) $17 

Fraction  Fever(R)  . .  .$17 

Kids  on  Keys  (R) $17 

Kindercomp(R) $17 

Math  Busters  (D) $19 

Most  Amazing 

Tiling  (D)   $19 

Snooper  Troops 

1  or2(D) $19 

Story  Machine(R)  .  .  .$17 

Trains  (D) $19 

SUBLOGIC 

Flight  Simulator  11(D)  $33 

Night  Mission 

Pinball  (D)  $21 

SYNAPSE 

Alley  Cat  (D) $17 

Blue  Max  (TorD) $21 

Blue  Max  2001  (D)  .  .  .  $21 
Dimension  X(D)  .  .  .  .  $21 
Electronic  Novels   ..Call 

Encounter(D)  $17 

Ft.  Apocalypse  (D)  ..$21 
Necromancer  (D) .  .  .  .  $21 
Pharoah's  Curse  (D)  .$21 

Ouasimodo(D)  $17 

Shamus  II  (D) $21 

Syn-Calc(D) $35 

Syn-Chron(D)  $26 

Syn-Comm(D) $26 

Syn-File(D)  $35 

Syn-Slock(D) $26 

Syn-Trend(D) $26 

TIMEWORKS 

Data  Manager  (D)   .  .  .$17 

Electronic 

Checkbook(D)  .  . .$17 
Money  Manager  (D).  .$17 
TRONIX 

Pokersam(D) $17 

S.A.Ivl.(D) $39 

ACCESSORIES 
Ape  Face  Printer 

Interface $49 

Astra  2001  Dual 

Disk  Drive Call 

BASFSS.  DD.  -  .  .$14Bx. 
BASFDS.  DD  .  .  $19  Bx. 
CompuServe  Starter 

Kil(5hrs.) $23 

Digital  Devices 

Printer  Buffers  .  .  .Call 
Digital  Devices 

U  Print  A $59 

Disk  Case  (Holds  50).  .$9 
Disk  Case  (Holds  100)  $19 
Disk  Drive  Cleaner  .  .  .  $9 
Full  Stroke  Replacement 

Keyboard  for 

Atari  400 $49 

Generic  Disks  ...Cheap 
Indus  GT  Disk  Drive  .Call 
MPP  1000E  Ivlicrobits 

Modem   $109 

Microbits  Microprint 

Interface   $49 

MPP  1150  Microbits 

Printer  Interface  .  .$59 
Mosaic32.  48.  64K  .  .Call 
Rana  1000  Disk  Drive  $189 
Sakata  13"  Color 

Monitor  w/Swrvel 

Tilt  Stand $225 

Wico  Boss $12 

Wico  Bat  Handle  ...  .$19 
Wico  Three  Way  .  .  .  .$23 


P.O.  Box  278  —  Dept.  AT  •  Wildwood,  PA  15091 


Ordering  and  Terms:  Orders  with  cashier  check  or  money  order  shipped  immediately  Personal/company 
checks,  allow  3  weeks  clearance.  No  C.O.D.'s  Shipping:  Continenlal  U.S.A.-Orders  under  $100  add  $3 
free  shipping  on  orders  over  $100.  PA  residents  add  6%  sales  tax  AK,  HI.  FPO-APO— add  $5  on  all  orders 
International  Order  Policy— No  Credit  Cards-add  $15  or  15%  ol  order  whichever  is  greatest  Defective 
merchandise  will  be  replaced  with  same  merchandise-NO  CREDITS!  Return  must  have  authorization 
number  (412)  361-5291.  Prices  subjecl  to  change  without  notice 


pressing  the  numbers  you  have  assign- 
ed them.  Play  chords  in  any  order  and 
of  any  duration  you  want!  Press  [8] 
and  you  get  no  sound. 

So  as  you  see,  you  can  also  use 
Guitar  Tutor  to  play  a  simple  chord 
accompaniment  if  you  feel  like  tak- 
ing a  break  to  sing  a  song  while  you're 
programming. 

GUITAR  TUTOR  VARIABLE  LIST 

TOPS 

BOT$ 

STRINGS 

FRETS  Graphic  patterns  to  draw 
box 

PATTERN(20)-Array  holds  DATA 
line  numbers  and  is  later  used 
for  sound  numbers 

K— value  returned  from  keyboard 

X-GOSUB  600  returns  with  X  as 
a  DATA  line  number 

TONIC— adjusted  note  (i.e.,  B* 
reads  data  from  C  natural) 

ACC— Accidental:0  if  natural,  1  if 
flat,  2  if  sharp 

CHORD-0  if  major,  1  if  minor,  2  if 
seventh,  3  if  minor  seventh 

LINE— saves  line  number  to  get 
sound  numbers  from 

F— counting  loop 

A— current  data 

FRET— vertical  position  while 
writing  dots 

I— counting  loop 

TIME— loop  to  allow  notes  to 
sound  individually 

TONES(63)-array  holds  sound 
numbers  and  names  in  seven 
chord  "memory" 

TONE— current  location  in  the  ar- 
ray TONES 

ONE— root  of  chord  being  put  in- 
to "memory" 

THREE— major  third  of  chord  be- 
ing put  into  "memory" 

FIVE— major  fifth  of  chord 

SEV— seventh  of  chord 
MINTHREE— minor  third  of  chord 

Frank  Imburgio  and  Grace  Barry 
are  the  founders  of  Homespun  Soft- 
ware in  Setauket,  New  York.  The 
company's  stated  aim  is  to  produce 
home  applications  software  that  is 
easy  to  use,  but  not  limited  by  its 
easiness. 


Listins  on  page  69 
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ANTIC,  The  Atari  Resource 


/JfoAlWAA^ 


Type-in  ''music  construction*'  software 


Powerful  and  versatile  "music  con- 
struction" program.  You  can  easily 
compose  songs  with  three-part  chord 
backgrounds — or  simply  copy  the 
notes  and  chord  symbols  from  sheet 
music  This  BASIC  program  runs  on 
any  Atari  computer  with  32K 
memory.  Disk  or  cassette. 

^^  ^^    mixh  The  Musician,  you 
%  J^  m  can  easily  enter  and 
^m  ^m  hear  playbaclc  of  any 
▼      ▼  song    on   your   Atari — 
with  a  full  background  of  three-part 
chords.  Only  an  elementary  know- 
ledge of  music  is  required.  In  fact,  you 
can  simply  copy  your  favorite  songs 
directly  from  sheet  music.  You  set  The 
Musician  to  play  harmony  chords  by 
simply  naming  them— the  program 
fills  in  the  required  notes! 

Type  in  Listing  1,  checking  it  with 
TYPO  II  and  SAVE  it  to  either  cassette 
or  disk.  Antic  Disk  subscribers  will 
find   a   short   demonstration   song 


bonus  file.  Here's  how  to  use  The 
Musician. 

USING  MUSICIAN 

When  you  RUN  The  Musician,  you 
will  see  an  introductory  screen  for  a 
few  seconds  as  the  program  initializes. 
A  music  staff  will  then  appear  on  the 
screen  with  a  single  red  note. 

Use  your  joystick  to  move  the  note 
up  and  down  on  the  staff.  If  you  are 
working  from  sheet  music,  simply 
place  the  note  in  the  same  position 
you  see  it  on  the  sheet  music.  To  enter 
the  note,  press  the  joystick  button. 
The  note  will  turn  white.  Then  The 
Musician  will  briefly  play  your  chosen 
note  and  a  new  red  note  will  appear. 

TIMED  NOTES 

Placing  your  note  on  the  staff  just 
gives  you  the  basic  pitch.  You  must 
still  set  time  values,  indicate  if  a  note 
is  sharp  or  flat,  and  enter  rests  or  dot- 
ted and  sustained  notes. 

You  select  these  various  note  types 
by  pressing  keys  on  the  Atari.  Here  is 


how  it  works. 

Whole  notes  W 

Half  notes  H 

Quarter  notes  Q 

Eighth  notes  8 

Sixteenth  notes  6 

Thirty-second  notes    3 

Dotted  notes 

Sustained  notes  S 

Sharp  notes  # 

Flatted  notes  B 

Natural  notes  N 

Rests  R 

A  little  music  information  here: 
There  are  various  "time  signatures" 
possible  at  the  start  of  a  piece  of 
music.  In  the  most  common  types, 
4/4  (standard)  and  3/4  (waltz),  a 
quarter  note  would  be  held  for  one 
beat,  half  note  is  two  beats  and  whole 
note  is  four  beats.  An  eighth  note  is 
half  a  beat,  sixteenth  note  is  one- 
fourth  of  a  beat  and  a  thirty-second 
note  is  one-eighth  of  a  beat. 

Dotted  notes  increase  the  time  a 
note  is  held  by  half  its  normal  value. 

continued  on  pase  50 
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Rotate  and  zoom  3-D 
images  in  ACTION! 


by  PAUL  CHABOT 


I    E     N 


ints/Lines 

2  EDIT  Points/i-ines 

3  Chan9e  EYE/dtst. 
*  Change  F0CU5 

5  Change  CENTER 


092  PRBE  SECTORS 


f i lenane>> 
eye  10  S  S        dlst.  100 
PreRotated  0  0  0 
center  80  9o      Focus  0  o  o 


Create  3-D  luire-frame  outline  pic- 
tures in  your  Atari's  highest  resolu- 
tions, Graphics  8  and  Graphics  7+ . 
Magnify,  shrink,  rotate,  and  other- 
wise shift  your  view  of  the  3-D  pic- 
ture easily  and  fairly  quickly.  Re- 


quires ACTION!  cartridge,  disk  drive 
and  48K  memor)>.  Antic  disk  sub- 
scribers can  run  VIEW3D.EXE  with- 
out the  ACTION.'  cartridge  Disable 
BASIC  and  use  the  L  option  from 
DOS  2.  OS.    Disk  or  cassette. 

When  Paid  submitted  View  3-D  to 
Antic,  we  saw  it  was  easily  the 
largest  ACTION.'  program  any 
magazine  had  considered  publish- 
ing. But  in  recent  months,  we  have 
received  so  many  letters  from  readers 
wanting  ACTION!  that  we  thought  it 
was  time  for  a  monster  example  of 
programming  in  this  powerful  Atari 
language. 

Be  warned:  there  are  ten  separate 
program  listings,  nine  of  which  are 
dependent  on  and  INCLUDEd  into 
the  tenth  to  form  one  ^nain  program. 
Because  of  the  nature  of  ACTION! 
there  is  no  TYPO  II,  so  type  patient- 
ly and  carefidly.  The  results  will  be 
well  worth  it.  —ANTIC  ED 
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I     ^fl  here  arc  different  approaches 

I  to  3-D  viewing.  You  can  leave 

I  the  viewing  point  ("eye")  fixed 

'^gj^  and  rotate  the  object.  Or  you 

can  think  of  the  object  as  fixed  and 

change  the  location  of  the  eye.  These 

are  mathematically  equivalent,  but 

conceptually  quite  different  to  most 

people. 

Also,  should  the  projection  be  per- 
spective or  orthogonal?  Where 
should  the  focus  be  placed?  View  3-D 
will  allow  any  combination  of  these 
variations  and  more.  To  manipulate  a 
3-D  frame  quickly,  you  need  faster 
number  crunching  than  BASIC  pro- 


GR78M  and  MISCl.  This  third  pro- 
gram, when  compiled,  will  compile 
the  first  two,  and  so  on. 

V1EW3D  is  too  large  to  be  com- 
piled and  run  from  the  ACTION! 
editor  When  all  your  files  are  proper- 
ly typed  in,  clear  the  editor  and,  from 
the  monitor,  type:  C  "VIEW3D.ACT". 
After  the  compilation  is  complete, 
type  [R]  and  away  you  go. 

THE  PROGRAM 

The  first  thing  you  should  see  is  the 
menu  screen.  View  3-D  alternates  be- 
tween two  screens — the  menu  screen 
and  the  view  screen.  The  menu  screen 


vides,  The  answer  is  ACTION!,  the 
cartridge-based  programming  lan- 
guage from  Optimized  Systems  Soft- 
ware, which  is  becoming  increasing- 
ly popular  with  serious  Atari  pro- 
grammers. 

TYPING  IT  IN 

View  3-D  is  one  program,  but  it  has 
been  split  into  ten  files.  Listing  10, 
called  VIEW3D,  is  the  main  file  which 
INCLUDES  the  other  nine.  If  you  look 
at  the  beginning  of  listing  10,  you  can 
see  the  name  of  the  other  files. 

Type  each  file  in  the  order  they  are 
INCLUDEd  in  Listing  10.  Each  subse- 
quent file  shares  procedures  from 
previous  ones,  none  may  be  compiled 
or  run  independently.  You  can  partial- 
ly check  your  work  by  compiling  pro- 
grams accumulatively  in  the  order  in 
which  you  type  them.  For  example, 
GR78M  may  be  compiled  alone.  After 
typing  in  MISCl,  create  a  temporary 
third    program    which    INCLUDES 


has  command  options  and  a  disk  di- 
rectory. The  view  screen  shows  your 
3D  drawing.  Shortly  after  the  menu 
appears,  the  colors  will  alter  and  the 
program  will  switch  to  the  view 
screen  and  display  a  simple  3-D  ob- 
ject called  "Plane"  which  is  similar  to 
Figure  1. 

THE  COMMANDS 

With  the  exception  of  [D],  any  key 
pressed  will  take  you  to  the  view 


'PLANE 


screen.  One-key  commands  are  acted 
upon  immediately.  No  [RETURN]  is 
needed. 

[B]  Returns  you  to  the  menu  at  any 
time. 

[G]  Switches  you  between  GR.  7  -t- 
and  GR.  8.  GR.  1+  offers  four  colors 
(counting  the  background),  changed 
with  the  [C]  selection  (below). 

[C]  Alters  the  GR.  1+  color 
registers.  The  message  line  at  the  bot- 
tom will  indicate  the  current  color 
number  (0-3),  its  current  hue  and 
luminence  values,  plus  the  word 
Default. 

The  keys  [C],  [H],  [L]  increment  the 
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color,  hue,  and  luminence.  This  can 
be  used  while  in  GR.  8.  But  the  effect 
may  be  misleading  because  the  GR. 
7+  registers  and  the  current  screen 
registers  are  being  altered  but  not  the 
GR.  8  default  values.  The  [D]  key  re- 
sets all  GR.  7+  registers  to  default 
values.  These  values  are  updated  each 
time  you  load  a  data  file.  Also,  none 
of  your  playing  will  affect  the  menu 
screen  colors,  since  these  are  main- 
continued  on  next  page 
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tained  separately.  Any  other  key  ter- 
minates this  routine. 

[M]  Magnifies  the  object.  This  is  ini- 
tially set  at  4  and  wraps  to  1  when  in- 
cremented past  9.  You  won't  see  the 
effect  until  the  picture  is  redrawn  by 
pressing  [SPACE]. 

[V]  Changes  the  view  between  per- 
spective and  orthogonal.  Perspective, 
which  emulates  our  vision,  takes  into 
account  the  distance  from  the  eye, 
whereas  orthogonal  is  used  in  draft- 
ing and  engineering. 

Figures  2  and  3  show  the  differ- 
ence between  perspective  and  ortho- 
gonal projections. 

PREROTATE 

These  selections  let  you  rotate  your 
object  about  any  of  the  three  X,  Y  and 
Z  axes.  The  message  line  shows  the 
values  of  rx  (rotate  X),  ry  (rotate  Y), 
rz  (rotate  Z),  and  ri  (rotJitional  incre- 
ment). Each  time  the  [X],  [Y]  or  [Z] 
keys  are  pressed,  the  object  rotates 
about  the  chosen  axis  in  ri  incre- 
ments. The  rotations  are  about  axes 
that  pass  through  the  focus  point. 

The  [I] /[J]  keys  increment/decre- 
ment the  value  of  ri  in  degrees. 
Negative  values  of  ri  make  rotations 
go  in  the  opposite  direaion. 

POINT  OF  VIEW 

The  following  commands  affect  your 
dimensional  view  of  the  object. 

[3]  Fix  EYE/dist.  The  eye  coor- 
dinates are  controlled  by  your 
joystick.  Selections  [lH4]  use  the 
same  joystick  scheme.-  Left/right  alters 
the  X  coordinate,  up/down  alters  the 
Y  and  up/down  while  holding  the 
trigger  alters  the  Z.  hi  selection  [3], 
left/right  with  the  trigger  pressed  con- 
trols the  distance.  Press  [SPACE]  to 
draw  your  object  from  this  new  eye 
location. 

Remember  that  the  eye  coordinates 
are  relative  to  the  focus  point  (see  [4] 
below)  and  only  establish  the  view- 
ing direction  in  the  orthogonal  view. 
The  eye-object  distance  is  important 
only  in  the  perspective  view.  Keep  the 
distance  large  to  avoid  distortion, 

[4]  Change  FOCUS.  The  focus  is  the 
point  in  space  at  which  the  eye  is  aim- 
ed and  through  which  all  the  rotation 
axes  pass.  It  is  normally  on  or  near 


the  object  being  studied  and  will  be 
mapped  to  center  screen  (cx,cy). 
Move  the  flashing  dot  with  your  joy- 
stick. More  importantly,  watch  its  co- 
ordinates. Use  [SPACE]  to  set  your 
choice. 

[5]  Change  CENTER.  This  alters  ex 
and  cy,  shifting  the  object.  These  are 
actual  screen  coordinates  (0,0  is  the 
upper  left).  Use  [SPACE]  to  set  your 
choice  and  see  the  effect. 

[0]  Resets  the  center,  eye,  focus, 
magnification,  and  prerotation  values 
to  defaults  used  at  start-up. 

I/O 

[D]  Lists  up  to  22  data  files  in  the 
menu  window,  assuming  they  have 
".V3D  "  extenders.  This  is  also  done 
automatically  at  start-up  and  after 
each  successful  save. 

[L]  Loads  a  data  file  from  disk. 
Answer  the  input  prompt  with  a  file- 
name only.  The  program  supplies  the 
"D:"  prefix  and  a  ".V3D  "  extender 
Upon  hitting  [RETURN]  you'U  see  the 
full  filespec.  Press  [L]  again  to  ac- 
complish the  load.  Any  other  key  will 
abort  the  process. 

[S]  Saves  data  to  a  disk  file.  The  pro- 
cess is  the  same  as  the  above  [L]  load. 

[P]  Outputs  to  your  printer  After 
pressing  [P]  you  may  choose  to  print 
the  picture  data  [D]  or  the  picture  [P]. 
The  picture  is  produced  by  a  short 
screen  dump  for  a  Gemini  lOX.  You'll 
get  best  results  by  printing  the  GR.  8 
picture. 

To  alter  the  printout  procedure  for 
your  own  printer,  examine  the  Prnt 
procedure  in  the  PRINTIO.ACT  file 
and  adapt  accordingly.  The  st  array 
conUiins  printer  control  codes  26,  51, 
16  which,  on  the  Gemini,  set  the  line 
feed  to  16/144  inches.  In  the  pre  ar- 
ray, the  27,  75,  192,  0  mean  print 
normal-density  graphics  (60 
dots/inch)  using  192  +  256*0  char- 
acters. If  you  have  an  Epson  FX-80, 
for  example,  you  need  only  change 
the  line  feed  commands:  Change  the 
16  to  24  in  the  st  array,  and  later  in 
the  procedure  at  st(3)  =  l6.  Also, 
change  the  20  to  30  in  st(3)  =  20 

3-D  DRAWING 

It's  not  easy  to  draw  in  3  dimensions. 
The  easiest  way  to  learn  is  simply  to 
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try  it.  Concentrating  on  the  changing 
coordinates  in  the  message  line  may 
be  easier  than  watching  the  dots  and 
lines  on  the  screen. 

However,  before  you  start,  you  may 
wish  to  save  the  object  currently  in 
memory.  The  process  is  easier  to 
understand  if  you  use  the  EDIT  com- 
mand, [2],  to  display  a  blank  screen. 
Each  time  you  press  the  [SPACE]  bar, 
the  screen  will  step  through  the  draw- 
ing process  of  the  object  in  memory, 
showing  you  how  to  construct  a 
drawing. 

To  get  started  on  your  own,  press 
[0]  to  use  default  values.  To  create  a 
blank  screen,  press  [2]  then  [l].  The 
joystick  moves  a  flashing  dot,  whose 
coordinates  appear  in  the  bottom  line. 
Position  the  cursor  where  you  want 
it,  and  establish  that  point  b}'  press- 
ing the  [SPACE]  bar  Your  current  up- 
dated point  number  will  be  displayed 
in  the  bottom  line.  Next,  move  the 
cursor  to  your  second  location,  press 
[P]  to  switch  from  "Plot"  to  "LineTo" 
and  press  [SPACE]  to  draw  the  line. 

For  starters,  keep  it  simple,  or  try 
editing  a  sample  drawing.  (The  pro- 
gram can  take  up  to  200  data  points.) 
To  edit  a  previous  drawing,  press  [l] 
to  ADD  points  and  lines.  As  you  step 
through  the  drawing  by  pressing 
[SPACE] ,  you  can  change  any  of  the 
values  at  any  point,  or  you  can  begin 
adding  to  the  last  points.  You  can,  of 
course,  save  your  object  to  disk  at  any 
time. 

DATA  STORAGE 

At  this  point,  you  need  to  understand 
a  little  about  how  data  for  your  3-D 
object  is  stored.  The  INTeger  array  P 
contains  all  the  information  in  the 
following  format: 

P=  [n:XyZ:d:xy  Z:C: :xy  Z:C: 


P(0)  =  n  is  the  number  of  data 
points  in  your  object.  The  next  four 
integers  contain  EYE  datii.  The  first 
three  indicate  the  direaion  avray  from 
the  FOCUS,  and  the  fourth  gives  the 
distance. 

The  following  four  integers  contain 
the  three  space  coordinates  of  the 
focus  point  and  a  presently  unused 
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value.  These  nine  integers  are  follow- 
ed by  n  data  sets  for  your  object.  Each 
is  made  up  of  four  integers  contain- 
ing the  three  space  coordinates  for  a 
point  and  a  fourth  coded  message. 
The  encoding  of  the  fourth  integer  is 
given  by  c=  color  +  16  *p,  where 
p  =  0  for  "LineTo"  and  p  =  1  for  "Plot". 

SAMPLE  DATA 

You  can  enter  the  data  in  figure  4  in 
the  ADD  mode  to  create  a  house  with 
windows  and  a  red  chimney.  Press 
[2],  then  [1]  to  clear  memory.  Now 
use  your  joystick  to  get  the  coor- 
dinates in  the  message  line  to  match 
those  of  the  first  point  in  the  exam- 
ple. Hit  [C]  and  [P]  as  needed  and  set 
the  data  by  hitting  [SPACE].  Now  do 
the  same  for  the  second  point  in  the 
example,  etc. 

You  can  even  do  a  little  at  a  time. 
Just  save  the  portion  you've  done. 
Next  time  load  in  this  file,  press  [l] 
and  continue  from  where  you  left  off. 
A  couple  of  examples  will  show  you 
how  to  read  the  notation.  "10  20 
15:P2"  means  to  Plot  (10,20,15)  in 
color  2.  Whereas  "20  20  30:L3" 
denotes  a  color  3  LineTo  (20,20,30). 
Each  example  has  suggested  EYE  and 
FOCUS  data. 


PERSPECTIVE  PROJECTION 

Figure  2 


ORTHOGONAL  PROJECTION 

Figure  3 
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Longtime  Antic  contributor  Paul 
Chabot  is  a  professor  of  mathematics 
and  computer  science  at  California 
State  University,  Los  Angeles.  He 
wrote  "Splash  In  ACTION!"  in  our 
April  1985  issue. 
Listing  on  page  54. 
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>  1-Yr.  Warranty 

Our  Most  Popular  Drive! 

We  recommend  and  sell  more  of  these  drives 
than  any  other.  It's  so  quiet  that  you'll 
probably  forget  you  are  using  a  disk  drive. 
Flip-up  dust  cover,  LED  readout,  and  FREE 
SOFTWARE  (DOS  XL,  Word  processor,  Data- 
base, Spreadsheet,  Programming  bool<  by 
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Tech.  User  Notes  26.90 


48K  Disk 
$39.95 

Program  Covers 
4  Disk  Sides 


■  Outsmart  Your  Friends 
'  Outwit  The  Dragon 
'  Join  The  Quest 


A  new  concept  in  computer  gaming.  Intellectual  challenge,  strategy  and  arcade  action.  Each 
player  assumes  the  role  of  a  lord  m\h  a  questing  party  of  three  characters  Complete  the 
guest,  earn  the  most  gold  by  answering  questions  and  battling  the  dragon.  Win  the  favor  of 
the  king  and  thus,  the  game, 

•  Utility  Disk:  1000  Additional  questions  plus  create  your  own,,.  $24.95 


FREE  CATALOG  1^^^ 


with  any  order  . 
first  purchase) 


or  send  $1  (retundabie  with 


Assembler 
Basic  Fast  8,  Bet 
Basic  Source  Bk 
For  Kids  8-80 
Games  &  Rec 
Graphics  &  Arc 
Playground 
Roots 

Sound  &  Graphics 
Users  Encyloped 
W/55  Programs 


15.95 
19,95 
12.95 
15.95 
14.95 
16.95 
9.95 
14.95 
10,96 
19.95 
14.50 


Compute: 

2nd  BK  Mactl  Lan    14.95 


jFBO  Alan  Graph 
TFBO  Atari  Games 
yPBOAtan 
Great  ADV  Games    12.95 


12,95 
12.95 
12,95 


2nd  Bkol  Atari 
3rd  Bk  ol  Atari 


12.95 
12.95 


Protect  Your 
Equipment 


Deluxe 

DUST  COVERS 


Custom  fitted,  attractive  leather  brown  color- 

•  ATARI   400,   800,   600/800/1200XL,   New 
XE&ST.  410,  810,  1050,  f025,  f027,  CX85 

•  EPSON,    GEMINI,     PROWRITER    printers 

•  INDUS,  RANA,  PERCOM,  TRAK  disk  drives. 

Additional  covers  ordered 
ai  same  lime 

0NLV$8.95   EACH       ONLY  $7.95    EACH 


You  will  receive  the  most  com- 
prehensive reterence  catalog 
available.  Containing  hun- 
(jreds  of  software  antj  hard- 
ware listings  with  illustrations 
and  descriptions,  our  main 
catalog  will  give  you  the 
answers  you  need.  Join  our 
mailing  list  and  receive  free 
flyers  with  updates  and  special 
offers. 
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NEW!    COMPUTER  PALACE  B.B.S. 
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nave  a  section  about  the  latest  Alan  products,  news,  and  rumors    and  lor  those  Iruslraled 
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Now  use  both  sides  of 
your  diskettes 

Simply  place  tiie  disl<  against  tiie 
built-in  stops  and  squeeze 


^ 


Peachtiee  Software 


tt^ 


Now,  one  of  the  most  popular  accounting  systems  is  availale  for  Atari.  Back  to  Basics 
Accounting  System  is  a  double  entry,  accrual  accounting  system  consisting  of  three 
interactive  packages  for  the  small  business:  General  Ledger,  Accounts  Receivable  and 
Accounts  Payable.  A  povnerlul  system,  it  includes  automatic  posting,  system  generated 
mailing  labels  and  password  security.  For  the  non-accountant,  it  comes  with  one  of  the 
most  comprehensive  manauals  we  have  seen.  For  the  expert,  it  will  finally  put  your  Atari 
in  business.  Requires  2  drives.  48K  Disk-System  Package. ,.$195.00.  Each. .,$95.00 


One  of  the  most  versatile  data-base  programs  available. 


Features: 

•  LIGHTI^II^G  FAST  RETRIEVAL 

•  FAST  SORTS  ON  ANY  FIELD 

•  SUPPORTS  UP  TO  4  DRIVES 

•  SINGLE  OR  DOUBLE  DENSITY 

•  STORE  ABOUT  1200  RECORDS 
PER  DISk  SIDE  IN  DOUBLE  DENSITY 

•  MUCH  MORE' 


New  Enhanced  Version  2.0 
Includes: 

«oi/    n-     I      •  ON-SCREEN  PROMPTS 

4oR  Disk  •  help  screens 

t»n    nc      •  state  ABBREVIATION  TABLE 
043  .  HO      '  PRINT  LABELS  1 ,  2,  or  3-UP 

•  REDEFINABLE  FIELDS 

•  MERGE-CREATE  COMBINATION  FILES 

•  DELETE  DUPLICATE-AUTO  or  MANUAL 


New!  Mail  Merge  Utility.     $19.95 

Now  you  can  use  your  Super  Mailer  +  records  with  Atarwriter  and  Letter  Wizard 
Use  names  and  addresses  to  create  form  letters.  Input  special  characters  into  the 
word  processing  programs  to  tell  Super  Mailer-f  where  to  put  the  information  it's 
as  easy  as  t.,.2...3! 


Super-5 

CP150 

Printer 

$279.00 

+  FRT 

A  "best  buy"  I  Features  "square  dot"  print 
head  with  the  best  print  quality  for  the  money 
130CPS,  bi-directional,  graphics,  and  EPSON 
compatible.  Plain  or  Pin-fed  paper 


BUSINESS 

Assm  Editor 

31,50 

Monkey  Wrch  11 

29.95 

Atanwnler 

39.95 

Lel!erperfeci 

87.90 

Spell  Wizard 

44.90 

ABC  Compiler 

69.95 

B/Graph 

62,50 

PeachlreeG/L 

95,00 

^eachlree  A/P 

95.00 

PeachlreeA/R 

95.00 

Home  Accounlani 

67.50 

Synfile 

49.95 

Syncalc 

49.95 

Syntrend 

49,95 

Synslock 

35.10 

Home-Caic 

35,10 

Mac/65 

87,90 

Aclion 

87,90 

Basic  XL 

87,90 

Writer  s  Tool 

87,90 

Tele-Talk 

44,90 

Financial  CookDk 

44.90 

Basic  Cartridge 

29,90 

Graphic     Gener 

22.50 

Microsit  Basic  2 

55.00 

PARTS  & 

MISC 

Disk  Cleaner 

13  95 

800  Power  Supply 

24.95 

10  Disk  Mailers 

6.50 

10  Generic  Disks 

13.95 

Ten  key  PaO 

39.95 

Touch  Tat)iet 

54.95 

Compu-Serve 

39.95 

ndus  Or  Stacker 

19.95 

Oak  Monitor  StO 

29  95 

Printer  Stand 

24.95 

Disk  Bank(50| 
Disk  Baok|35) 
Regular  Joystick 
Deluxe  Joystick 
Swivel  Base 
Joystick  Cord 
Joystick  Handle 
Joystick  Board 
J  stick  12'  Ext 
Surge  Protector 
Printer  Inlrface 
64K  tor  600XL 
Relax 


15.95 

9.95 

9.30 

19  95 

39.95 

2  95 

1,49 

2,49 

9,95 

39,95 

69,95 

79,95 

99,95 


Sherlock  26,90 

SPECIALS 

Rally  Speedway  19,95C 

Shamus  9,95D 

Pacific  Cst  Hwy  9,95D 

CrosslirelT-    )  9,95 

Match  Racer  9,950 

Bandits  9,950 

Jawt)reaker  9.950 

Eastern  Front  9.95T 

Canyon  ClmD(T-  01  9,95 
14,95C 
14,950 
9,950 
9,95D 
9,950 
9.95T 
17.95C 
17.95C 
17,95C 
17,95C 
19.950 
9. 950 


Pool  400 

Speedway  Blast 

Repton 

Wayout 

Threshold 

Stellar  Shuttle 

Wiz  ot  V<or 

Deluxe  Invaders 

Gorl 

Miner  2D4ger 

Choplilter 

Lords  ot  karma 
D  Disk  T  Tape 
C  Cartridge 


New  ATARI  130/520ST  Computers 


128K-$399/512K-SS9g 

The  current  flagship  of  the  Atari  Family  has 
arrived,  utilizing  the  speed  of  the  Motoria  68000 
CPU,  With  128K  or  512K.  you  will  have  power  at 
prices  you  won't  believe.  And  with  a  mouse, 
pull-down  menus,  windows,  icon  graphics  and 
cut  and  paste  features  that  allow  you  to  integrate 
spreadsheet,  text  and  graphic  files;  creative 
solutions  have  never  been  easier.  The  quantities 
are  limited,  so  place  your  order  now  to  get  yours 
as  soon  as  possible. 


IJ 


PriiitShop 


sg 


3; 


3  Need  a  .  .  greeting  card,  letterhead,  logo, 
^  ad  flyer,  announcement,  note  card,  station- 
>;  ery.  report  cover,  award  certilicate,  sign  or 
St  bulletin?  Make  one  in  minutes!  How  about  a 
g  iumbo  banner?  Simple!  I  Make  it  30  feet  long  if 
t^  you  like.  With  only  a  few  key  strokes,  you  can 

4.  write,  design  and  print  like  a  pro  All  you  need 

5.  Is  in  the  program:  8  typestyles  in  multiple 
g  sizes  with  solid,  outline  and  3-D  format, 
^  border  designs,  background  patterns,  and  a 

2  wide  range  ol  pictures  and  symbols  Also  in- 

3  eluded  are:  The  ability  to  superimpose  text 
g  over  any  picture  or  design.  Use  illustrations 
p:  from  other  graphics  programs.  Swirling  ani-  i 
^  mations  that  you  can  freeze  for  background 
b  designs    ^^^  p  ^g  gp  j 


E 


COMPUTER 
PALACE 


Bsi 


OPEN  M-F.  9-6  Sat   tO-4  (Pacific  Time) 

2160  W.  1 1  ih  Avenue  Eugene,  Oregon  97402 


USE  YOUR  CREDIT  CARD  &  CALL 

Toll  Free  1-800-452-8013 
•  ORDERS  ONLY,  PLEASE  • 

There's  never  a  penally  lor  using  yourcredilcardl 
For  Inlormatlon,  Call  (503)  683-5361 


SHIPPING  INFO:  Minimum  $2.90  Ground,  $4  75  Air  Actual 
Cost  depends  on  weight.  Call  (503)  683-5361  lor  inlormation 
WARRANTY  INFO:  Everything  that  we  sell  is  warrantied  by 
the  manufacturer.  If  any  Jem  purchased  from  us  tails  to  per- 
lorm  properly  when  you  receive  it.  call  us  al  (503)  683-5361 
so  that  we  can  assist  you  No  returned  merchandise  accepted 
without  authorization  Defective  software  will  be  replaced 
with  another  copy  of  the  same  program,  otherwise  no  soft- 
ware is  returnable. 
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TURBO  TYPO  II 

Speedy  three-line  enhancement 


by  DAVID  McLAUGHLIN 


Changing  three  lines  in  TYPO  H 
gives  assembly  language  speed  to 
Antic's  program  typing  checker  (See 
Listing  Section.)  TURBO  TYPO  II 
will  work  on  all  Atari  computers  of 
any  memory  configuratioti. 

When  Andy  Barton  started  ivorking 
on  TYPO  II,  he  wrote  it  as  a  machine 
language  vertical  blank  interrupt 
routine  which  fit  in  Page  Six  of 
memory.  Following  a  suggestion 
from  Bill  Wilkinson  of  Optimized 
Systems  Software — who  wrote  the 
original  TYPO — we  decided  to 
switch  to  an  all-BASIC  TYPO  II.  An- 
tic felt  that  novices,  who  most  needed 
TYPO  II,  would  have  a  much  easier 
time  if  they  didn't  have  to  type  in  a 
lot  of  data  statements 

We  also  wanted  a  simple  program 
that  the  widest  range  of  readers  could 
have  fun  tinkering  with.  (See  the  I/O 
pages  in  both  the  April  and  May 
issues  for  some  earlier  enhance- 
ments) Judging  by  the  many  thank- 
you  letters  from  new  Atari  users  and 
the  large  number  of  improvements 
that  more  experienced  readers  have 
sent  in,  Antic  certainly  succeeded  in 
both  goals. -Am\c  ed 

TURBO  TYPO  II 

TYPO  II  is  an  enormous  help,  but  it 
does  have  an  annoying  drawbaclc — 
the  longer  the  line,  the  more  time  re- 
quired to  check  it.  My  object  was  to 


speed  up  TYPO  II  while  producing 
the  same  two-letter  code  checksums. 

I  noticed  the  slowdown  came  from 
line  32150  of  the  original  code.  This 
line  was  an  elegant  solution,  creating 
a  unique  code  that  also  checks  for 
correct  letter  order  (i.e.  distinguishes 
between  TO  and  OT). 

Therefore,  the  best  way  to  speed  up 
TYPO  II  was  to  write  the  line  32150 
procedure  in  machine  language.  Thus, 
I  created  Listing  3,  TYPO  II,  in  ML. 
But  you  do  NOT  need  to  type  this 
listing  to  create  an  enhanced  TYPO 
IL  It  is  included  primarily  for  your 
information. 

TWO  CHOICES 

I  have  provided  two  ways  to  create  the 
necessary  enhancements.  Listing  1  is 
all  you  need  to  add  to  the  current 
TYPO  II.  If  you  are  one  of  those  brave 
souls  who  doesn't  mind  typing  in  a 
lot  of  special  and  inverse  characters 
then  simply  use  your  old  TYPO  II  to 
type  in  Listing  1.  When  done,  press 
[BREAK]  then  SAVE  or  LIST  your 
enhanced  TY'PO  II  to  disk  or  cassette. 
If  you'd  rather  not  take  a  chance  on 
typing  tricky  characters,  then  use  your 
old  TYPO  II  and  follow  these  instruc- 
tions in  exactly  the  following  order. 

1.  'With  TYPO  II  running,  type  in 
lines  32015  to  32025  from 
Listing  1. 

2.  Type  in  Listing  2. 


3.  After  Listing  2  is  successfully  en- 
tered, press  [BREAK]  to  stop 
TYPO  II. 

4.  Type  RUN  and  line  32026  from 
Listing  1  will  be  created  for  you. 

5.  'When  the  READY  prompt  ap- 
pears type  GOTO  32000. 

6.  Type  in  line  32150  from  Listing 
1  and  your  enhanced  TYPO  II 
is  complete. 

7.  Press  [BREAK]  and  save  the  new 
TYPO  II  to  disk  or  tape  by   . 
typing: 

LIST  "DTYPO  n",32000,32220  or 
LIST  "C:",32000,32220. 

If  you  want  a  SAVEd  version  then 
type  NE'W  and  then  ENTER  the  new, 
enhanced  TYPO  II  and  then  SAVE  it 
to  disk  or  tape. 

SOURCE  CODE 

Listing  3  was  created  with  the  Atari 
Assembler/Editor  cartridge.  Of 
greatest  interest  is  the  use  of  three 
bytes  to  calculate  TYPO  ll's  variable 
ANS. 

Normally,  in  this  type  of  applica- 
tion, the  programmer  returns  the 
value  of  ANS  back  to  BASIC  through 
memory  locations  212  and  213  (hexa- 
decimal $D4  and  $D5)  as  the  Atari 
creators  originally  planned.  However, 
ANS  can  only  have  a  maximum  value 
of  65535,  the  greatest  value  two  bytes 
can  hold. 

continued  on  next  page 
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The  original  TYPO  II's  design  allows  ANS  to  become 
larger  than  that  after  the  length  of  LINE  $  becomes  greater 
than  about  20-30  characters.  But  the  use  of  three-byte 
arithmetic  is  sufficient  to  hold  the  highest  possible  values 
of  ANS. 

A  note  of  caution:  TYPO  II  in  ML  uses  three  Page  Six 
memory  locations,  1789-1791  (hexadecimal  $6FD-S6FF). 
Any  program  that  accesses  these  three  locations  will  be 
in  conflict  with  the  enhanced  TYPO  II.  But  since  they 
are  the  last  three  locations  on  Page  Six,  there  should  be 
little  problem. 

Listing  on  page  75  ES 


HIGH  PERFORMANCE 
PRINTER  INTERFACE 

Only  $69.95 

Atari  850  compatible. 

Use  on  Atari  400,  600XL, 

800,  800XL,  65XE,  130XE. 

Power-on  LED. 

Ribbon  cable  connector. 

External  power  supply. 

Page  formatting  independent  of  software. 

DIP  switch  selections  of  line  feed  and 

English  translation  of  control  characters. 

TURBOPRINT/GTA  . . .  $99.95 

All  the  above  features  plus  .  .  . 
Optional  16K  or  32K  plug-in  buffer. 
Prints  Atari  graphic  characters. 
DIP  switch  selection  of  printer. 

Interfaces  for  Atari,  Commodore  and  Apple. 


415-651-2970 


FOR  ATARI  *400/800/1200/600XL/800XL* 


^X\L   BOgg 


For    ATARI     800XL,     600XL    with    64k. 
Replacement  operating  system  to  run  the 
vast  majorily  of  all  ATARI  software.   No 
translator  or  disk  to  load! 
Proper  RESET  operation  especially  impor- 
tant for  programs  like  LETTER  PERFECT, 
DATA  PERFECT,  TEXT  WIZARD,  etc. 
One  touch  access  to  extra  RAM,  all  RAM. 
One  touch  BASIC  on. 
Easy  plug  in  installation. 

NOW  INCLUDES  DUAL  OPERATING 
SYSTEM  BOARD! 

•Includes  MacroMon  XL  which  is  an  ex- 
cellent, unique  monitor  for  beginner  and 
pro  alike— written  especially  for  the  BOSS. 
$79.95  for  800XL/600XL  with  64K*. 


^ 


Uen 
acroware 


FRinTUXZ 


An  all  machine  language  text, 
graphics,  mixed  mode  dump  for  EP- 
SON, GEMINI,  NEC,  PROWRITER, 
OKIDATA,  M-T  SPIRIT,  160L, 
KXP-1090,  DMP-80,  ISD  480, 
SEIKO/AXIOM  CP550A. 
Self  booting  can  be  used  while  pro- 
gramming or  even  running  other  pro- 
grams. 

Works  with  or  without  BASIC, 
ED/ASM,  PILOT,  LOCO.  Calendar 
generator.  Horizontal  format  allows 
text  to  be  continued  in  same  direction. 
Change  widths,  height,  center  and 
much  more  from  the  keyboard  or  your 
program.  Special  handlers  for  PAINT, 
Micro-Illustrator,  LOCO,  Micro- 
painter,  etc.  Includes  LISTER  program 
for  inverted  and  special  characters  plus 
demos  and  ideas.  $29.95*  16K  Disk- 
All  Interfaces. 


diskwiz-ll 

Fast  and  easy  to  use  repair,  edit,  ex- 
plore, dup,  disk  utility  package.  Single 
load,  single  or  double  density.  Special 
printout  capabilities. 
Repair  or  change  of  linked  DOS2  or 
OSA-f2  files,  directories,  dup 
filenames.  Fast  searches,  mapping,  file 
trace.  Disassembler,  speed  check  and 
much  more!  Low  priced,  fast,  easy, 
and  powerful!  $29.95  16K  Disk. 

Send  s.a.s.e.  for  update  info. 

•TERMS:  U.S.  funds;  check  or  M.O. 
add  $2.50  shipping/handl- 
ing add  6%  CA  —  6.5%  LA 
COUNTY  add  $3.00  for 
C.O.D.  No  charge  cards  ac- 
cepted add  $2.50  foreign 
orders  normally  out  within 
48  hours. 


P.O.  BOX  2205/REDONDO  BEACH,  CA  90278 

(213)  376-4105 

*  Trademark  of  Alari,  Inc. 
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ANTIC,  The  Atari  Resource 


G.U.P.  the 

GREAT 


Fast  graphics 
power  from  BASIC 


by  DAREK  MIHOCKA 


Graphics  Utility  Package 
(G.U.P.)  is  a  BASIC  pro- 
gram that  creates  a  boot 
file.  When  this  file  is  in- 
stalled in  your  Atiiri's  memory  several 
new  and  powerful  graphics  com- 
mands are  available  to  you  in  the  form 
of  USR  calls. 

G.U.P.  features  include; 

•  PLOT  and  DRAWTO  about  3-5 
times  faster  than  normal. 

•  Circles  and  boxes  drawn  at  high 
speed. 

Several  lines  drawn  at  once  for 
high  speed. 

Access  by  a  400  or  800  to  the  4 
new  XL  graphics  modes. 
Choose    solid    or    multicolor 
patterns. 

Mix  text  with  graphics. 
A   simple    128  color  rainbow 
command. 

Direct    commands    in    GTIA 
modes. 


Speed  up  your  BASIC  graphics  com- 
mands and  add  powerful  new 
ones — including  circles,  squares  and 
patterned  fills.  Atari  400/800  owners 
can  now  access  graphics  commands 
available  only  on  the  XLs.  Requires 
a  disk  drive  and  will  run  on  all  Atari 
computers  ivith  48K  metnory. 


TYPING  G.U.P. 

Type  in  Listings  1  and  2.  Check  them 
carefully  with  TYPO  II  and  make  sure 
no  lines  have  been  missed.  These  pro- 
grams use  machine  language  routines 
which  could  lock  up  your  computer 
if  mistyped,  so  be  sure  to  SAVE  backup 
copies  before  RUNning  them. 

Listing  1  will  create  an  AUTO- 
RUN. SYS  file  on  disk.  RUN  the  pro- 
gram and  at  the  prompt  insert  a  for- 
matted disk  with  DOS  2. OS,  press 
START  and  G.U.P  will  be  written  to 
disk.  (Note:  because  of  the  G.U.P.  file 
structure,  do  NOT  use  DOS  3).  Now, 
continued  on  next  page 
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boot  the  disk,  the  screen  will  change 
color  and  G.U.P.  will  be  in  memory. 

DEMONSTRATION 

To  test  G.U.P. ,  LOAD  Listing  2  into 
memory  and  RUN  it.  Listing  2  is  a 
demonstration  program  that  will  take 
G.U.P.  through  its  amazing  paces  and 
provide  examples  of  how  to  use  G.U.P. 
in  your  own  BASIC  programs. 

Lines  40-180  of  Listing  2  are  essen- 
tial to  any  BASIC  program  using  the 
G.U.P.  commands.  These  lines  deter- 
mine the  starting  locations  of  the  dif- 
ferent routines  and  store  them  in  com- 
mand variables.  You  can  renumber 
them  for  your  convenience,  but  they 
must  be  executed  before  any  G.U.P. 
commands  are  given. 

LOCK-UP 

G.U.P.  is  really  a  series  of  USR  calls, 
which  are  assembly  language  routines 


LINE,  BOX,  CIRCLE,  TEXT,  RAN- 
DOM, and  C128.  Here  is  a  description 
of  each: 

GRAPHICS  X— Establish  graphics 
mode.  Any  one  of  the  16  graphics 
modes  can  be  selected.  This  allows  a 
ROM  B  Atari  to  access  the  4  new  ROM 
C  graphics  modes  with  one  com- 
mand. To  access  the  160X192  4  col- 
or mode  (GR.I5  on  XL  computers), 
use  the  command: 

A  =  USR(GRAPHICS,15) 


that  are  accessed  from  BASIC.  Com- 
puter newcomers,  who  may  be  a  lit- 
tle wary  of  USR  routines  should  read 
last  month's  "USR  Routines"  by  Ernie 
Negus. 

When  using  assembly  language 
routines,  there  is  always  a  good  pos- 
sibility of  computer  lock-up — your 
keyboard  no  longer  responds  and 
there's  nothing  to  do  but  turn  off  your 
computer  and  start  all  over  again. 
Lock-ups  can  occur  with  just  one 
mistyped  character  They're  time- 
consuming  and  annoying  and  you 
may  lose  unsaved  data.  But  they  won't 
harm  your  machine,  so  don't  be  afraid 
to  experiment. 

G.U.P.  COMMANDS 

G.U.P.  has  10  separate  commands: 
GRAPHICS,   SET,   PLOT,   DRAWTO, 


SET  a,b,c,d — Choose  patterns.  Each 
parameter  contains  color  data  for  4 
pixels  necessary  tor  the  pattern  of  col- 
ors. (See  the  explanation  later  on.)  To 
set  the  colors  to  simulate  the  BASIC 
command  COLOR  1,  use: 

A  =  USR(SET,85,85,85,85) 

PLOT  x,y— Same  as  BASIC'S  PLOT. 

Use: 

A  =  USR(PLOT,X,Y) 

DRAWTO  x,y — ^Again,  the  same  as 
BASIC'S  DRAWTO.  Use: 

A  =  USR(DRAWTO,X,Y) 

LINE  xl,yl,x2,y2— Similar  to 
DRAWTO,  except  that  the  first 
parameter  is  the  starting  pixel.  For  ex- 
ample, to  draw  lines  from  pixel  0,0 
to  10,5  to  20,3  use: 

A  =  USR(LINE,0,0,10,5,20,3) 

The  DRAWTO  and  LINE  commands 
can  have  more  than  one  parameter 


That  is,  if  5  pairs  of  coordinates  are 
given,  then  a  line  will  be  drawn  from 
the  first  to  the  second,  then  the  se- 
cond to  third,  and  so  on.  This  saves 
time  and  memory. 

BOX  xl,yl,x2,y2— This  will  draw  a 
filled-in  box  whose  opposite  corner 
coordinates  are  (xl,yl)  and  (x2,y2).  A 
10  pixel  square  box  is  draw  with: 

A  =  USR(BOX,0,0,10,10) 

CIRCLE  x,y,r — this  draws  a  circle  of 
radius  r  pixels  at  location  xl,  yl.  This 
command  works  about  30  times 
faster  than  any  BASIC  algorithm  I've 
tried.  A  large  circle  in  GR.15  is  drawn 
by: 

A  =  USR(CIRCLE,79,79,75) 

TEXT  x,y,"abcd..",I— this  will  print 
out  the  given  string  of  length  1  in 
graphics  modes  4,6  or  8  at  co- 
ordinates x,y.  This  allows  easy  mixing 
of  text  and  graphics.  It  should  be  used 
in  a  2  color  mode  to  make  the  letters 
readable.  To  put  the  word  ANTIC  in 
the  upper  left  corner  of  the  screen 
use: 

A  =  USR(TEXT,0,0,ADR 

('ANTIC"),5) 

Repeating  the  command  will  erase  the 
word  and  restore  any  graphics  that 
were  underneath. 

RANDOM— This  command  simply 
puts  random  colors  in  the  color  pat- 
tern. The  command  is: 

A  =  USR(RANDOM) 

C128  d,r— This  produces  a  128  col- 
or rainbow  display  for  the  given  dura- 
tion (d  in  l/60ths  of  a  second)  in  the 
given  color  register  (r).  R  is  determin- 
ed by  subtracting  704  from  the  loca- 
tion of  the  color  register  For  exam- 
ple, to  make  a  rainbow  of  the 
background  (location  710)  for  10 
seconds  use: 

A  =  USR(C128,600,6) 

VARIABLE  REGISTERS 

Four  variables  are  established  as 
registers  in  G.U.P. 

CIRF  is  a  variable  used  to  switch 
between  empty-circle  drawing  and 
filled  circles.  POKE  CIRF,0  for  empty 
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circles  or  POKE  CIRF,1  for  filled  ones. 

Memory  location  208  is  used  with 
the  command  GRAPHICS.  Since 
G.U.P.  can  only  plot  up  to  a  co- 
ordinate of  255,191,  the  co-ordinates 
from  256,191  to  319,191  in  graphics 
mode  8  cannot  normally  be  access- 
ed. By  poking  an  8  into  208,  the  co- 
ordinate plane  is  shifted  over  64  pix- 
els and  A  =  USR(PLOT,0,0)  would  ac- 
tually plot  at  64,0. 

The  memory  locations  SETCOLOR 


to  SETCOLOR -H  8  are  values  that  are 
copied  into  memory  locations  704  to 
712  when  a  GRAPHICS  command  is 
executed.  By  poking  into  these  loca- 
tions, the  default  colors  of  the  screen 
can  be  changed,  as  they  already  are 
in  G.U.P.  For  example,  in  graphics 
mode  0,  to  change  the  screen  color 
to  black,  a  POKE  710,0  is  run.  To  set 
G.U.P.  to  make  the  screen  black  every 
time  a  GRAPHICS  command  is  given, 
do  a  POKE  SETCOLOR -I- 6,0  since 
710  =  704-1-6. 

SET  COMMAND 

One  of  the  best  things  about  G.U.P.  is 
that  it  doesn't  just  draw  in  solid  col- 
ors. A  1x4,  2x4,  4x4  or  8x4  color  pat- 
tern is  stored  at  memory  locations 
COLOR  to  COLOR  -1-  3  •  The  size  of  the 


pattern  is  determined  by  the  graphics 
mode.  This  is  because  text  modes  use 
one  byte  per  character,  GTIA  modes 
use  one  byte  to  display  2  pixels, 
4-color  modes  use  one  byte  for  4  pix- 
els, and  the  2-color  modes  can  store 
8  pixels  in  a  byte. 

The  pattern  can  either  be  POKEd 
in,  or  put  in  with  the  SET  command. 
This  way  circles  can  be  drawn  in  a 
checkerboard  pattern,  lines  can  be 
dotted,  and  more. 

The  formula  for  determining  the 
parameters  to  use  in  the  SET  com- 
mand is  quite  simple.  Just  like  BASIC'S 
COLOR  command  which  selects  one 
of  the  4  color  registers  for  plotting, 
each  one  of  the  4  parameters  passed 
in  the  SET  command  determines  the 
color  registers  for  a  4  x  1  array  of  pix- 
els in  a  4-color  mode,  8x1  in  a  2  col- 
or mode,  2x1  in  a  GTIA  mode. 

Using  2-color  modes  4,  6  and  8,  an 
8x4  pattern  can  be  set  up.  This  means 
that  during  PLOT,  DRAWTO,  LINE, 
BOX,  or  CIRCLE,  the  pixels  will  be 
plotted  so  that  if  the  whole  screen  is 
filled  up  it  will  be  made  up  of  little 
8x4  boxes  of  the  same  pattern.  By 
making  the  pixels  alternate  from  black 
to  white,  a  very  fine  checkerboard 
pattern  is  made  as  follows:  Let  0  repre- 
sent a  pixel  in  color  0  and  a  1  repre- 
sent a  pixel  in  color  1.  The  pattern  is 
therefore 

01010101 
10101010 
01010101 
10101010 

This  pattern  represents  4  binary 
numbers.  In  decimal  the)'  are  85,  170, 
85  and  170.  Therefore  the  command 
to  give  is: 

A  =  USR(SET,85 ,  170,85 ,  170) 

If  you  just  want  to  plot  with  color 
1,  the  whole  pattern  would  be  I's  and 
the  four  numbers  would  each  be  255 
(11111111  in  binary).  Similarly,  if  you 
want  to  plot  with  color  0,  use  the 
number  0  four  times. 

In  a  4-color  mode,  4  colors  can  be 
used  so  each  pixel  must  be  repre- 
sented by  two  bits:  00,  01,  10  or  11. 
This  is  why  only  4  can  be  used  in  one 
byte.  Similarly,  in  a  GTLA  mode,  16 
colors  are  possible,  therefore  4  bits  are 


required  per  pixel  and  only  2  pixels 
fit  in  one  byte. 

In  a  text  mode,  0,  1,  2,  12  or  13, 
the  four  numbers  represent  a  block  of 
1x4  characters.  Each  number  is  the 
ATASCII  code  of  the  character 

If  you  wish  to  POKE  these  values 
instead  of  using  the  SET  command, 


locations  COLOR  to  COLOR -1- 3  are 
where  the  four  parameters  of  the  SET 
command  go  and  can  be  POKEed 
directly. 

FEEL  FREE 

Luckily,  you  don't  really  need  to 
understand  any  of  this.  Simpl}'  tr)'  out 
different  numbers  in  the  SET  param- 
eters until  you  see  what  you  like.  This 
holds  true  of  all  of  G.U.P.  Many  of 
these  routines  may  be  placed  in 
strings  for  those  more  advanced  pro- 
grammers. Feel  free  to  experiment. 

Darek  Mihocka  placed  in  the  top  10 
in  three  nationwide  Canadian  uni- 
versity math  and  physics  contests. 
He's  a  member  of  the  Toronto  Atari 
Federation  and  a  licensed  glider 
pilot. 
Listing  on  page  68  Q 


June  1985 
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In  Australia  there  are  more  men  than 
women  and  more  cows  than  men.  To 
keep  the  cows  under  control,  ranch- 
ers use  helicopters.  Your  helicopter  is 
supposed  to  scare  the  cows  into  their 
holding  pen. 

In  case  you've  never  buzzed  a 
bovine  with  a  helicopter  before,  you'll 
need  some  advice.  As  you  maneuver 
your  joystick-controlled  copter  closer 
to  the  herd;  the  animals  get  increas- 
ingly skittish  and  move  away  from 
you.  Steering  heifers  into  a  corral  isn't 
easy. 

While  patiently  waiting  for  you  to 
get  airborne,  the  cows  move  random- 
ly. Then  after  all  of  the  cattle  have 
been  packed  into  their  pen,  the  gate 
will  close.  You  must  return  the  copter 
to  the  landing  pad  for  a  full  score. 

But  if  you  run  out  of  fuel,  your  heli- 
copter will  crash  and  kill  some  inno- 
cent cows. 


USING  THE  PROGRAM 

To  get  this  game  off  the  ground,  type 
in  Listing  1,  check  it  with  TYPO  II, 
and  SAVE  a  copy.  When  you  RUN 
Helicopter  Roundup,  you'll  have  to 
wait  while  the  screen  blanks  for  in- 
itialization (don't  panic).  Then  you'll 
see  the  game. 

You  can  [SELECT]  the  number  of 
cows  to  herd,  and  you  can  refuel  dur- 
ing play  by  positioning  the  copter 
over  the  landing  pad  and  pushing  the 
joystick  trigger. 

The  game  continues  indefinitely 
until  all  cows  are  controlled  or  you 
crash. 

When  he's  not  rounding  up  redefined 
cow  characters,  Walt  Bulaiva  is  an 
application  programmer  for  the 
medical  field. 


Cows?  Helicopters?  In  your  Atari? 
You  bet!  This  BASIC  action  game 
challenges  you  to  round  'em  up  from 
the  air  Works  on  all  Atari  computers 
of  any  memory  configuration. 
Disk  or  cassette. 


Listing  on  page  71 
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A 


Vastly  SUPERIOR  to  any  translation  programs 
availablel  FOR  ATARI 
1200XL/600XL/800XL  with  64K. 
ATADI*     (Please  specify  computer  model  number!)         ATARI" 

$69.95  (Rom)  TUp  $69.95  (Rom) 

$49.95  (D  or  C)  '  " ^  $49.95  (D  or  C) 

XL  "FIX"! " 


TheAtarl  XL  series  computers  represent  power,  sophistication,  and 
flexibilit/  virtually  unrivalled  In  todays  Home  Computer  Market. 
With  "approximately"  30-40%  of  existing  software  being  "incom- 
patable",  a  real,  and  serious  problem  exists.  Because  of  this  we 
have  developed  THE  XL  "FIX'I 
ADVANTAGES  over  cheaper  "translation  products": 

1.  The  XL  "FIX"!  is  capable  of  fixing  more  software ...  an  estimated 
30%  more  software! 

2.  The  XL  "FIX"!  Is  available  in  DISK,  CASSEHE,  and  now  ROM! 

3.  XL  "FIX"!  versions  fix  ALL  THREE  types  of  software  (Disk  -  Cassette  - 
and  Cartridges!) 

4.  The  XL  "FIX"!  (disk  or  cassette)  adds  OVER  4K  of  usabie  RAM  to  your 
computer  (anyone  using  Data  bases  or  Word  processors  will  really 
appreciate  this  feature!) 

5.  You  never  hove  to  hold  the  OPTION  button  down  on  600XL  or 
800XL  computers! 

6.  VERY  IMPORTANT!  You  need  to  load  the  XL  "FIX"!  only  once  ...  you 
can  change  disks,  cassettes,  or  cartridges  without  rebooting  the  XL 
"FIX"!  each  time  (disk  or  cassette)! 

7.  The  ROIVI  version  Is  instantaneous  upon  computer  power  up,  has  a 
high  speed  cursor,  is  instantly  switchobie  to  your  original  operating 
system,  will  work  with  16K  600XL's,  and  morel 

The  XL  "FIX"! ....  another  SUPERIOR  product!  64K  required! 
DISTRIBUTOR/DEALER  inquires  welcome 


Mastercord-Viso-Money 
Order  or  Cashier  Check. 
Phone  (716)  467-9326 
Piease  specify  computer 
model  number! 


Send  $49.95  ($69.95  for  Rom) 
plus  $4  shipping  and  handling 
(N.Y.S.  residents  please  add  7%)  to: 
COMPUTER  SOFTWARE  SERVICES 
P.O.  Box  17660 
Rochester,  New  York  14617 


A 

ATARP 


THREE  NEW  PRODUCTS! 
THE  "SUPER  PILL"! 


A 

ATARP 


Exactly  the  same  as  trie  WORLD'S  leading  cartridge  backup 
device . . .  THE  Plli! . . .  except  its  even  simpler  to  operate,  its 
SWITCHUSSt  Excellent  (or  families  having  young  children.  Totally 
eliminates  opening  computer  doors  and  switches.  THE  ^^SUPER  Plli"!  Is 
the  most  advanced  state  of  the  CARTRIDGE  BACKUP  device  available 
today.  It  is  totally  compotable  with  oil  ATARI  computers  and  ail  programs 
backed  up  by  the  originai  "PILL"!  Only  S79.95  plus  S4  shipping  and 
handling. 

THE  "PROTECTOR/Sllf  NCER"! 

The  "PROTECTOR"!  Is  a  disk  and  hardware  modification  (no 
soidering)  tor  Atari  81 0, 1 050,  and  Indus  GT  disk  drives  that  will  allow  you 
to  write  true  BAD  SECTORS  wherever  you  wish  (not  to  be  confused  with 
ridlcuious  speed  control  or  tape  jert<ing  schemes!).  Powerful  disk 
program  finds  hidden  directories,  scrambles  existing  directories,  fast 
maps,  hex  conversions,  disk  dupes,  and  much  morel 

The  "SILENCER"!  quiets  your  drive  tremendously  (eliminates  the 
LOUD  grinding  noise  when  you  read  a  bad  sector!),  PLUS  it  allows  you  to 
WRITE  TO  BOTH  SIDES  of  any  disk  WITHOUT  cutting  or  notching  the  disk! 
Both  for  only  S49.95  plus  $4  shipping  and  handling. 

THE  "COMPANION"! 

An  amazing  device  that  will  enhance  the  capabilities  of  the 
XL  "FIX"!  or  Atori  Tronsloter.  It  will  allow  you  to  d»-selsct  BASIC  (no  more 
need  to  hold  the  OPTION  button  white  loading  programs  on  the  600XLs 
and  eoOXL's),  and  it  will  allow  you  to  de-select  Itie  DIAGNOSTICS  (no 
more  bod  loads  because  of  the  DiAGNOSTiCS  jumping  into  the  middle 
of  your  program  load  routine!).  Installation  is  simple  (1 0  minutes)  and  re- 
quires NO  soidering!  Only  S29.95  plus  $4  shipping  and  handling. 

DISTRIBUTOR/DEALER  Inquiries  welcome. 
Our  other  fine  products  include  THE  "PILL"I,  XI.  "FIX"!,  "itVlPOSSIBLE"l, 
"IVIETAr^ORPHOSES"l,  and  "REIVIOTE"! 

Mastercord-Visa-Money 
Order  or  Cashiers  Check. 
Phone  orders: 
(716)  467-9326. 

Atari  Is  a  TM  of  Atari  Inc.  The 
"METAMORPHOSES"!  Is  a  TM 
of  Computer  Software 
Services  (division  of  S.C.S.D., 
Inc.) 


COMPUTER  SOFTWARE 

SERVICES 

P.O.  Box  17660 

Rocliester,  New  York  14617 


A 

ATARI 

$149.95 


For  years  they  said  It  couldn't  be  done  . 


THE 

"IMPOSSIBLE"! 


they  claimed! 


Backup  almost  any  disk  currently  available  (even  heavily  protected  programs)  with  an  UNMODIFIED  disk  drive! 

Works  with  ANY  disk  drivel 


A 

ATARI 

$149.95 


PURPOSE:  The  "IMPOSSIBLE"  was  developed  in  response  to  the  estimated  half  million  disk  drive  users  that  own  a  drive  other  than  the  Atari  810  (Indus,  Per- 
com,  Irak,  Rana,  Astro,  etc.)  that  wish  to  BACK  UP  their  protected  software.  Due  to  a  radically  new  technology  developed  by  Computer  Software  Ser- 
vices, modification  to  your  disk  drive  has  been  eliminated!  The  advantages  are  obvious!  Drive  warranties  are  not  violated,  the  chance  accidental 
damage  has  been  eliminated,  etc.,  etc. 

OPERATION:  The  "IMPOSSIBLE"!  consists  of  a  disk  program  (unprotected  so  you  can  make  as  many  backups  as  you  wish)  and  a  4K  STATIC  RAM  pack 
which  is  inserted  into  your  computer  (no  soldering!)The  "IMPOSSIBLE"!  will  read  your  program  disk  and  then  re-write  it  In  an  unprotected  format!  You  may 
make  additional  backup  copies  using  asector  copier  or  even  regular  DOS!  Becauseyour  backup  copy  no  longer  has  BAD  SECTORS  or  EXOTIC  FORfVIATS, 
the  program  data  can  now  be  manipulated  into  DOS  compotable  flies  (even  double  density!),  transfered  to  cassette,  etc.  (with  the  aid  of  our  Satellite 
programs!)  No  user  programming  knowledge  required.  A  few  programs  require  logical  thinking. 
FEATURES:  1  Backup  protected  disks  5.  AFSD-Automatic  FUZZY  Sector  Discriminator 

2.  Handles  most  MULTI-LOAD  programs  6.  Expands  computer  memory  to  52K  usable 

3.  Makes  DOS  files  (with  Satellite  option)  7.  Simple  NO  SOLDER  installation 

4.  Up  to  90K  data  input  capable  8.  Satellite  expandable 

PROJECTED  SATELLITES:  A  "COMPACTOR"  program  which  will  convert  your  program  Into  DOS  compotable  files  (double  densit/  compatoble!)  fa  the 
storage  of  several  progromson  one  disk.  A  "COLUMN  80"  program  for  Word  Proccessing,  etc.  It  allows  80  columns  on  the  screen!  The  "XL-MATE"  will  allow 
programs  mode  with  your  400/800  "IMPOSSIBLE"!  to  nowploy  on  your  XL  Computer!  The  METAMORPHOSES  II  program  will  allow  you  to  convert  your  pro- 
tected CASSETTES  into  disk  DOS  tiles  and  vice-versa.  All  satellite  programs  must  be  used  with  inconjunction  with  The  "IMPOSSIBLE"! 
REQUIREMENTS:  The  "IMPOSSIBLE"  diskette,  the  4K  STATIC  RAM  pack,  a  400  or  800  computer  (please  specify!)  with  48K  and  "B"  Rom's.  NOTE!  The  very  old 
ATARI  computers  were  shipped  with  "A"  Rom's  which  had  some  serious  "Bugs".  Even  if  you  don't  own  an  "IMPOSSIBLE,"  you  should  upgrade  to  "B"  Rom's 
(simple  to  install!)  We  have  them  available  at  a  very  Inexpensive  price.  CALL  US!  "XL"  version  available  soon! 

NOT  A  PIRATING  TOOL-  We  of  C.S.S.  did  not  design  The  "IMPOSSIBLE"!  to  put  Software  Manufactures  out-of-business  overnight!  Neariy  oil  of  our  products 
hove  been  "ripped-off"  by  industry  parasite  who  have  little  or  no  ability  to  develop  a  product  of  their  own  so  we  can  sympathize  with  their  dilemma.  All 
CSS  products  have  built-in  safe  guards  which  prohibit  their  use  for  flagrant  pirating.  The  "IMPOSSIBLE"!  Is  no  exception!  WhIieThe  "IMPOSSIBLE"!  back- 
up the  most  heavily  protected  programs,  it  also  checks  to  see  that  the  4K  STATIC  RAM  pack  Is  installed  before  allowing  the  backup  copy  to 
execute! 


EXAMPLES:  The  "IMPOSSIBLE"!  has  been  tested  on  300  of  the  most  pop- 
ulor  and  heavily  protected  programs  we  could  find.  With  nearly  4000 
programs  for  Atari,  we  DO  NOT  guarantee  that  it  will  backup  all  pro- 
grams in  the  post-present-ond  future!  We  will  supply  updates  at  $6  each 
(non-profit!)  if  and  when  necessary.  Programs  we  hove  successfully 
backed  up  include:  Blue  Max,  Visl-cal,  Archon,  Mule,  File  Manager  800 
+,  Syn  Calc,  Syn  File,  One  on  One,  7  Cities  of  Gold,  Super  Bunny,  Load 
Runner,  Drol,  and  Gumboil  iust  to  name  a  few! 


Mastercard-Visa-Money 
Orders  or  Cashier  Check. 
Phone;  (716)  467-9326 

Please  specify  computer 
model  number! 


Send  S1 49.95  pius 

$4  shipping  and  handling 

(N.Y.S.  residents  please  add  7%) 

COMPUTER  SOFIWARE  SERVICES 
P.O.  BOX  17660 
ROCHESTER,  N.Y.  14617 


THE  MUSICIAN 

continued  from  page  37 

A  dotted  half  note  gets  held  for  three 
beats  of  a  measure.  Sust;iined  notes 
slide  into  the  note  wliich  follows 
them  instead  of  playing  as  separate 
notes. 

To  choose  a  dotted,  sustained 
eighth  note,  you  would  press  the 
following  tliree  keys— [.]  [8]  [S].  The 
Musician  isn't  fussy.  You  may  press 
keys  in  any  order  for  a  multiple-key 
note  command. 

When  you  use  the  [^]  or  [B]  to 
make  sharps  or  flats.  The  Musician 
will  stay  in  the  sharp  or  flat  mode  un- 
til you  press  [N]  for  Natural. 

Rests  are  times  when  no  note  is 
played.  To  choose  a  quarter  rest,  first 
press  [Q]  to  make  a  quarter  note,  then 
press  [R]  to  make  it  a  rest.  Similarly, 
to  make  an  eighth  rest,  press  [8]  [R]. 
Half  rests  are  [H]  [R]. 

Once  you  have  selected  the  correct 
type  of  note  and  placed  it  in  the  right 
position  on  the  staff,  press  your  joy- 
stick button  to  enter  it. 

Press  [C]  to  Cancel  the  note  if  you 
change  your  mind.  [C]  always  cancels 
the  last  note  or  the  last  chord  entered. 

ENTERING  CHORDS 

The  Musician  will  recognize  even  the 
most  advanced  kinds  of  chords.  En- 
tering chords  is  a  snap  since  you  enter 
them  by  name,  not  by  notes.  Press  the 
asterisk  [*]  key  to  tell  The  Musician 
you  want  to  enter  a  chord.  The  Musi- 
cian will  display: 

ENTER  A  CHORD 
THEN  PRESS  RETURN 

To  enter  a  C  chord,  press  [  *  ]  follow- 
ed by  [C],  then  press  [RETURN].  The 
Musician  wUl  display  the  name  of  the 
chord  you  have  keyed  in,  and  briefly 
play  the  chord. 

Using  the  Key  of  C  as  an  example, 
here  is  a  complete  list  of  chord  types 
recognized  by  The  Musician. 


ENTER 


CHORD  SELECTED 


CMAJ 

C  major  seventh 

C-i- 

C  augmented  fifth 

C- 

C  diminished  fifth 

CD 

C  diminished 

Sharp 

and  flat  chords  are  entered 

by  adding  tht 

;  [*]  or  [B]  keys.  For  in- 

stance,  here's 

how  to  enter  a  C  sharp 

minor  s( 

sventh  chord; 

Press 

[1 

Press 

[C] 

Press 

[*] 

Press 

[M] 

Press 

[7] 

Press 

[RETURN] 

C 

C  major 

CM 

C  minor 

CM7 

C  minor  seventh 

C7 

C  seventh 

CM6 

C  minor  sixth 

C6 

C  sixth 

Chords  in  other  keys  are  entered  in 
exactly  the  same  manner.  For  in- 
stance, you  enter  a  G  seventh  as  G7. 

If  a  chord  is  to  play  simultaneously 
with  a  certain  note,  enter  the  chord 
first,  then  enter  the  note. 

If  you  make  a  mistake  when  enter- 
ing a  chord  and  wish  to  exit  from 
chord  mode,  simply  press  ["*]  again. 
The  chord  will  not  be  entered  and 
you  will  return  to  note  entry  mode 
again.  To  re-enter  the  chord,  press  [*] 
again. 

Chords  will  continue  to  play  in  the 
background  until  they  are  changed  to 
something  else  or  turned  off.  To  turn 
off  a  background  chord,  press  [O]. 
The  Musician  will  display:  CHORD 
OFF 

SONG  PLAYBACK 

To  hear  a  playback  of  the  song  you 
have  entered,  press  [P\  The  song  will 
play  automatically  and  each  note  will 
appear  on  the  staff  as  it  plays.  You  may 
change  the  tempo  of  the  song  by 
pressing  [T]  before  pressing  [P}  The 
Musician  will  display; 

CHANGE  TEMPO      SLOWER 

Press  the  joystick  button  to  slow 
down  the  tempo.  To  speed  up  the 
tempo,  first  move  the  joystick  for- 
ward. The  word  SLOWER  will  change 
to  FASTER.  Pressing  the  joystick  but- 
ton will  then  speed  up  the  tempo. 

After  playing  a  song,  it  remains  in 
the  computer  memory.  'Vbu  may  con- 
tinue adding  notes  to  the  end  of  the 
song.  You  may  clear  it  from  memory. 
Or  you  may  SAVE  it  to  cassette  or  disk. 

Pressing  [ESC]  while  a  song  is  play- 


ing causes  The  Musician  to  im- 
mediately stop  playing  the  song  and 
return  to  note  entry  mode. 

SAVING  A  SONG 

To  SAVE  a  song,  press  [A]  for  Archive. 
The  Musician  will  display: 

ENTER  SONG  NAME 

If  you  are  saving  to  cassette,  just 
press  [RETURN].  You  will  hear  two 
beeps.  Put  your  recorder  on  record, 
then  press  [RETURN]. 

If  you  are  using  disk,  type  in  the 
song  name.  Do  not  use  more  than 
eight  characters,  since  this  becomes 
the  file  name.  Three-character  exten- 
sions are  allowed  if  you  like  using 
them.  Press  [RETURN] .  Tlie  Musician 
will  write  out  your  song. 

LOADING  A  SONG 

To  load  a  previously  saved  song,  press 
[L] .  The  Musician  will  ask  you  for  the 
name  of  the  song  file. 

If  you  are  entering  the  song  from 
cassette,  position  the  tape  to  the 
beginning  of  the  song  and  press 
[RETURN].] 

If  you  are  using  disk,  type  in  the 
song  name  and  press  [RETURN]. 

The  Musician  will  load  in  the  song 
and  play  it  for  you.  Once  a  song  is 
loaded  it  remains  in  memory  until 
you  clear  it  out.  If  you  add  notes  after 
loading  a  song,  they  get  appended  to 
the  end  of  the  song.  In  this  wa)',  you 
can  finish  songs  you  saved  only  par- 
tially completed. 

CLEAR  AND  EXIT 

To  clear  a  song  from  memory,  press 
[CLEAR].  Do  NOT  use  the  [SHIFT] 
key.  Now  you  may  begin  entering  a 
new  song. 

To  exit  The  Musician,  press  [E].  The 
Musician  will  display 

EXIT  Y  or  N 

Press  [Y]  to  confirm  your  choice.  The 
program  will  end  and  return  you  to 
BASIC. 

Angela  Giambra  is  a  senior  pro- 
grammer for  Marine  Midland  Bank 
in  Rochester,  N.Y.  His  "Eight  Queens 
Problem"  appeared  in  the  April, 
1984  Antic 
Listing  on  page  61  Q 
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type-in  listing  section  includes  every  full-length  program 
from  this  issue.  Listings  are  easier  to  type  and  proofread,  easy  to 
remove  and  save  in  a  binder  if  you  wish. 

►  ROTATE  AND  VIEW  3-D  IMAGE  INACTION! 

VIEW  3-D 54 

►  ENHANCE  YOUR  PICTURE  DETAILS  LIKE  NASA  DOES! 

PIXEL  SCANNER 58 

►  YOUR  ATARI  MASTER  WEAVER! 

COLOR  INKLE  LOOM 60 

►  *'MUSIC  CONSTRUCTION'*  SOFTWARE! 

THE  MUSICIAN ;  .  .  61 

►  Joystick  selection  of  program  hues! 

COLOR  PALETTE 64 

►  FAST  GRAPHICS  POWER  FROM  BASIC! 

G.U.P.  THE  GREAT 68 

►  LEARN  AND  PLAY  GUITAR  CHORDS  ON  YOUR  ATARI! 

GUITAR  TUTOR  . 69 

►  GAME  OF  THE  MONTH 

HELICOPTER  ROUND-UP 71 

►  LOGO 

TURTLE  PIANO 74 

►  ASSEMBLY  LANGUAGE 

TURBO  TYPO  II 75 

TYPING  SPECIAL  ATARI  CHARACTERS 52 

HOW  TO  USE  TYPO  II 53         ERROR  FILE 53 

DISK  SUBSCRIBERS:  You  can  use  all  these  programs  immediately. 
Just  follow  the  instructions  in  the  accompanying  magazine  articles. 

No  part  of  this  publication  may  be  reproduced,  stored  in  a  retrieval  system,  or  transmitted,  in  any  form  or  by  any  means, 
electronic,  mechanical,  photocopying,  recording  or  otherwise,  without  the  prior  written  permission  of  the  publisher. 

Antic  program  listings  are  typeset  by  Star's  Gemini  lOX  Printer — From  Star  Micronics,  Ino,  200  Park  Avenue,  New  York, 
NY  10166. 

JUNE  1985  ANTIC  SOFTWARE  LIBRASY  •  51 


TYPING  SPECIAL 
ATARI  CHARACTERS 

Antic  printed  program  listings  leave  a  small  space  between  each  Atari  Special  Character  for  easier  reading.  Im- 
mediately below  you  will  see  the  way  Antic  prints  all  the  standard  Atari  letters  and  numbers,  in  upper  and  lower 
case,  in  normal  and  inverse  video. 

ftBCDEFGHIJKLMHOPQRSTUgWKVZ 

ramiaQsssraQBQaKsicncgQracsiEifmiEaiZESiGaa 

abcdefshi  jkl mnopsrstuwwxyz 
0123456789  maBBQSmBISl] 

The  Atari  Special  Characters  and  the  keys  you  must  type  in  order  to  get  them  are  shown  in  the  two  boxes  below. 
(Squares  are  drawn  around  the  normal  video  characters  so  you  can  see  their  positions  more  accurately,  these  squares 
will  not  appear  in  listings.) 


o 


NORMAL  VIDEO            | 

FOR 

TYPE 

FOR          TYPE 

THIS 

THIS 

THIS         THIS 

H 

CTRL 

J 

H  CTRL  T 

m 

CTRL 

A 

H  CTRL   U 

a 

CTRL 

B 

C  CTRL  V 

a 

CTRL 

C 

H  CTRL  W 

a] 

CTRL 

D 

B  CTRL  X 

H 

CTRL 

E 

E  CTRL  Y 

[Z 

CTRL 

F 

B  CTRL  Z 

s 

CTRL 

G 

E  ESC  ESC 

,  a 

CTRL 

H 

SI  ESC  CTRL    - 

a 

CTRL 

I 

ffl  ESC  CTRL   = 

B 

CTRL 

J 

B  ESC  CTRL    + 

a 

CTRL 

K 

a  ESC  CTRL   * 

B 

CTRL 

L 

ffl  CTRL    . 

H 

CTRL 

M 

ffi  CTRL    ; 

y 

CTRL 

N 

1    SHIFT     = 

B 

CTRL 

0 

m  ESC 

HI 

CTRL 

P 

SHIFT 

SI 

CTRL 

Q 

CLEAR 

e 

CTRL 

R 

ffl  ESC  DELETE 

B 

CTRL 

S 

E  ESC  TAB 

INVERSE  VIDEO               | 

FOR 

TYPE 

FOR 

TYPE 

THIS 

THIS 

THIS 

THIS 

□ 

ACTRL 

» 

d 

ACTRL  Y 

D 

A  CTRL 

A 

B 

ACTRL  Z 

B 

A  CTRL 

B 

□ 

ESC 

B 

A  CTRL 

C 

SHIFT 

a 

ACTRL 

D 

DELETE 

B 

A  CTRL 

E 

□ 

ESC 

a 

A  CTRL 

F 

SHIFT 

a 

A  CTRL 

G 

INSERT 

n 

A  CTRL 

H 

□ 

ESC 

B 

A  CTRL 

I 

CTRL 

C3 

A  CTRL 

J 

TAB 

B 

A  CTRL 

K 

B 

ESC 

a 

A  CTRL 

L 

SHIFT 

H 

A  CTRL 

M 

TAB 

B 

A  CTRL 

N 

□ 

ACTRL    . 

9 

A  CTRL 

0 

□ 

ACTRL    ; 

B 

A  CTRL 

P 

B 

A SHI  FT    = 

B 

A  CTRL 

Q 

□ 

ESC  CTRL   2 

D 

A  CTRL 

R 

□ 

ESC 

B 

A  CTRL 

S 

CTRL 

D. 

A  CTRL 

T 

DELETE 

n 

A  CTRL 

U 

D 

ESC 

m 

ACTRL 

V 

CTRL 

a 

A  CTRL 

w 

INSERT 

a 

ACTRL 

X 

o 


Whenever  the  CONTROL  key  (CTRL  on  the  400/800)  or  SHIFT  key  is  used,  hold  it  down  while  you  press  the 
next  key.  Whenever  the  ESC  key  is  pressed,  release  it  before  you  type  the  next  key. 

Ibrn  on  inverse  video  by  pressing  the  Reverse  Video  Mode  Key  Q| .  Turn  it  off  by  pressing  it  a  second  time. 
(On  the  400/800,  use  the  Atari  Logo  KeyJH^ instead.)  Note:  In  the  printed  listings,  inverse  characters  willl  be  slightly 
smaller  than  the  normal  ones. 

Among  the  most  common  program  typing  mistakes  are  switching  certain  capital  letters  with  their  lower-case 
counterparts — ^you  need  to  look  especially  carefully  at  P,  X,  O  and  0  (zero). 

Some  of  Atari  Special  Characters  are  not  easy  to  tell  apart  from  standard  alpha-numeric  characters.  Usually  the 
Special  Characters  will  be  thicker  than  the  alpha-numerics.  Compare  the  two  sets  of  characters  below: 


PE 

CIAL 

STANDARD 

Kt 

CTRL  F 

/  Gi   / 

1? 

CTRLG 

\   ia    SHIFT  + 

■ 

CTRLN 

-    H    SHIFT  - 

s 

CTRLR 

-    P     - 

■  m 

CTRL  S 

+  a    + 

o 
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HOW  TO  USE  TYPO  II 


o 


Type  in  TYPO  II  and  SAVE  a  copy  to  disk  or  cassette. 

Type  GOTO  32000  and  follow  TYPO  II  onscreen  instructions.  If  the  resulting  two-letter  line  codes  are  not  ex- 
actly the  same  as  those  in  the  magazine,  you  mistyped  something  in  that  line. 

To  call  back  any  line  previously  typed,  type  an  asterisk  [*]  followed  (without  in-between  spaces)  by  the  line  number, 
then  press  [RETURN].  When  the  complete  line  appears  at  the  top  of  the  screen,  press  [RETURN]  again.  This  is  also 
the  way  you  use  TYPO  II  to  proofread  itself. 

To  LIST  your  program,  press  [BREAK]  and  type  LIST.  To  return  to  TYPO  II,  type  GOTO  32000. 

To  remove  TYPO  II  from  your  program,  type  LIST  "D:FILENAME",0,31999  [RETURN]  (Cassette  owners  LIST  "C:). 
Type  NEW,  then  ENTER  "D:FILENAME"  [RETURN]  (Cassette— ENTER  "C:).  Your  program  is  now  in  memory  widiout 
TYPO  II  and  you  can  SAVE  or  LIST  it  to  disk  or  cassette. 

Owners  of  the  BASIC  XL  cartridge  from  O.S.S.  type  SET  5,0  and  SET  12,0  before  using  TYPO  II. 


UB  32800  REH  TYPO  II  BV  AMDY  BARTON 

UM  32010  REM  UER ■  1.0  FOR  ANTIC  MAGAZINE 

HS  32020  CLR  :  DIM  LINES  C120]  :  CLOSE  <*2  :  CLO 

SE  W3 
BN  32030  OPEN  «2,  4,  O  ,  "E"  :  OPEN  it3,5,0,"E" 
VC  32840  ?  ■••5":  POSITION  11,1:?  "tSiaEBMV 
EM  32050  TRAP  32040 : POSITION  2.3:?  "Tupe 

in  a  proaran  line" 
HS  32060  POSITION  1.4:?  "  ": INPUT  *t2;LINE 

S:IF  LINES=""  THEN  POSITION  2.4:LIST  B 

:G0T0  32060 
HH  32070  IF  LINES  CI . 1 J ="»■•  THEN  B  =  UAL CLIN 

ESC2.LENCLINES111 :P0SITI0N  2.4:LIST  B: 

GOTO  32060 
TH  32000  POSITION  2-10:?  "CONT" 
MF  32090  B  =  VALCLINES)  :POSITION  1.3:?  ••  ■■: 
NY  32100  POKE  042. 13: STOP 
CN  32110  POKE  042.12 


ET  32120  ?  ■■w":POSITION  11-1:? 

":POSITION  2.15:LIST  B 
CE  32130  C=0:AN5=C 
OR  32140  POSITION  2. 16: INPUT  tt3: LINES: IF 

LINES=""  THEN  ?  "LINE  ";B;"  DELETED" : G 

OTO  32050 
VV    32150  FOR  D  =  l  TO  LEN  CLINESl  :  C  =  C«^1 :  ANS  = 

ANS«^CC«ASCCLINESCD.D11]  :NEKT  D 
UJ  32160  C0DE  =  INTCANS.^6761 
JW  32170  C0DE=ANS-CC0DE«67G} 
EH  321B0  HC0DE=INTCC0DE/26I 
BH  32190  LC0DE  =  C0DE-CHC0DE<»26]+e5 
HB  32200  HCODE=HCODE+65 
IE  32210  POSITION  0.16:?  CHRS CHCODEl : CHRS 

CLCODEJ 
UG  32220  POSITION  2.13:?  "I*  CODE  does  no 

t  natch  press  ■ti»m;ITM  and  edit  line  a 

bOMe.":G0T0     32050 


o 


ERROR  FILE 


BUS  OVERLINES 

Some  signals  and  address 
labels  were  printed  with- 
out overlines  in  Part  III  of 
Earl  Rice's  Parallel  Bus 
Revealed"  (Antic,  March 
1985). 

These  are  the  correct 
labels: 


D8XX-DFXX 
CSJCHIP  RESET) 
R/W 


DIXX 

RDE  (READ  DATA  ENABLE) 
PS  (DATA  STROBE) 
DRST  (DEVICE  RESET) 


o 


FIRST  LESSON  IN 
ASSEMBLY 

Line  100  of  the  listing  for 
"First  Lesson  in  Assembly 
Language"  (November, 
1984)  should  read  POKE 
755,4  instead  of  POKE 
775,4. 

ROOKY'S  QUEST 

February  '85 

The  following  line  is 

missing: 

2100  FOR  S  =  32  TO  16  STEP 

-4:  SOUND  0,8,14,10:  EA  =  EA 

•EA'EA:  SOUND  0,0,0,0:  EA  =  1 

AO:NEXT  S 


DRUM  SYNTH 

February  '85 

In  Figure  1,  the  "ART" 
should  be  the  Fuji  (inverse) 
symbol. 


MISSING 
INFOBITS 

DECEMBER  '84 
The  AL  source  listing  for 
Infobits  (Dec  '84)  was  left 
out  of  the  previous  issue. 
You'll  find  it  in  the  Jan.  '85 
Software  Library. 


ADVENT  X- 5 

November  '84 

Missing  line:  8020  RUN. 
Also,  cassette  owners 
should  change  the  138  in 
line  4005  to  130.  The 
TYPO  II  code  for  Une  1005 
ism. 

ADVENTURE 
ISLAND 

November  '84 

Line  837  is  missing  its  last 
item  of  data,  a  4.  Also,  it 
will  not  run  with  DOS  XL. 
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Article  on  page  38. 


rotate  and  zoom  3-D  imases  in  ACTION 

VIEW  3-D 

LISTING  1 

i     GR78H  (LISTING  11 

nODULEiINT  xnow=  [80]  .  !/now=  [98] 

BYTE  cnow=:i:i.l  ,  key=764- raM=106- cur=752 

BYTE  ARRAY  Mask7=t64  16  4  13,Clor=7B8 

,nasic8=[128  64  32  18  8  4  2  1], Mask, row 
CARD  dlist:=56e,sa=88 
CARD  ARRAY  adr C192I : CARD  POINTER  nes 

PROC  KolortBYTE  CI  RETURN 
PROC  DOT (INT  x,u)  RETURN 
PROC  Di-tdNT  x,y)  RETURN 

PROC  LineTodNT  x,yj 
INT  d3l,dy,xf,yf,a,b.l:,i 
Dot (xnow, ynowj 

IF  x=xnow  AND  y=ynow  THEN  RETURN  FI 
IF  x>xnow  THEN  dx=x-xnow:  x«==l 
ELSE  dx=xnow-x:xf =-1  FI 
IF  «>ynow  THEN  dy=y-ynow:  y  <:=1 
ELSE  dy=ynow-y :y*=-l  FI 
x=xnow : y=ynow 

IF  dx>dy  THEN  a=dy+dy : t=a-dx : b=t-dx 
FOR  i=l  TO  dx  DO  x==*x* 

IF  t<8  THEN  t:==+a 

ELSE  l:==+b:y==+yf 

FI  Dot(x,yj 
OD 
ELSE  a=dx+dx: t=a-dy : b=T-dy 
FOR  i=l  TO  dy  DO  y==+yf 

IF  X<9    THEN  X==*a 

ELSE  r==+b:x==+xf 

FI  DOT(x,yJ 
OD 
FI  xnow=x:ynow=y: RETURN 

PROC  Gr780N() :BVTE  i:BYTE  ARRAY  dl 

Graphics (8*16 J : adr (8J=sa:dl=dlisT 

FOR  i=  1  TO  191  DO  adr (i J =adr (i-lJ +48  OD 

dl==-4 :dl (8J=112:dl (l}=8e:dl (2 J =16 

FOR  i=3  TO  198  DO  dl (i J =dl (i+4J  OD 

dl  (199J=16:dl (2eei=e6:nes  =  dl*2ei 

dl  (284J=  =  -4:dllst:=dl  :  RETURN 


o 


FOR  i=182  TO  198  DO  d(i)=14  OD : RETURN 


PROC  Kolor8(BYTE  CJ:BYTE  i 
cnow=c  a  3:IF  Ol  THEN  c=l  FI 
FOR  i=8  TO  7  DO  Mask (7-i J =c : c= 
RETURN 


=LSH  1  OD 


PROC  DotBdNT  x,yj:BYTE  xb,xr 
BYTE  ARRAY 

pre=C127  191  223  239  247  251  253  254] 
IF  x<e  OR  x>319  THEN  RETURN  FI 

IF  y<e  OR  y>i9i  then  return  fi 

xb=x  RSH  3:xr=x  AND  7:row=adr(MJ 
rowCxbi=:=«  pre(xr)  v.    nasl<(xrl  :  RETURN 

PROC  DiTBdNT  x,y):BYTE  xb.xr 
IF  x<e  OR  x>319  THEN  RETURN  FI 
IF  W<8  OR  y>191  THEN  RETURN  FI 
xb=x  RSH  3:xr=x  AND  7:row=adr(yl 
row(xb)==!  nask(xr] : RETURN 

PROC  Gr8(BYTE  ARRAY  d]:BYTE  i 

nask=nask8 : Ko 1 or=Kol orB : Dot=Dot8 

Dl  t:=Di  t:8  :  d  (3 J  =79  :  d  (99 J  =79 

FOR  1=6  TO  98  DO  d(ll=15  OD 

FOR  1=1B2  TO  198  DO  d(l]=15  OD : RETURN 


o 


LISTING  2 


i     KESCl     (LISTING    2> 

nODULElBVTE    ST: INT    ARRAY 

JX=C1    111122218881111] 
,JU=[1    11112811281128    1] 

BYTE    ARRAY    b="  " 


PROC  set JXJW (BYTE  iJ 

FOR  1=8  TO  15  DO  jx  (i J ==-1 : jy (1 J  = 

RETURN 


-1  OD 


PROC  Kolor7(BYTE  cj:BYTE 

c==a  3:cnow=c 

FOR  1=8  TO  3  DO  Mask(3-iJ: 

RETURN 


=LSH  2  OD 


PROC  DoT7(INT  x,yj:BYTE  xb,xr 
BYTE  ARRAY  pre= t63  287  243  252] 
IF  x<e  OR  x>159  THEN  RETURN  FI 
IF  y<8  OR  y>191  THEN  RETURN  FI 
Xb=x  RSH  2:xr=x  AND  3:row=adr(yJ 
row(xb]==a  pre(xr]  v.    nask  (xr)  :  RETURN 

PROC  DiT7dHT  x,y]:BYTE  xb,xr 
IF  x<8  OR  x>159  THEN  RETURN  FI 
IF  y<8  OR  y>191  THEN  RETURN  FI 
Xb=x  RSH  2:xr=x  AND  3 : row=adr (yj 
row(xb]==!  nask (xr] : RETURN 

PROC  Gr7(BYTE  ARRAY  d) : BYTE  1 
'nask=nask7 : Kolor=Kolor7 : 001=0017 
011=01 17 : d (3 J  =78 : d (99 J  =78 
FOR  1=6  TO  98  DO  d(i)=14  OD 
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PROC  Pb(BYTE  1)  :  b  (8)  =1  :  Pr  mi  (b)  -.RETURN 

PROC  Mail (CARD  w, jl 

FOR  J=e  TO  w  DO  w==*l:w==-l  OD  RETURN 

:  TRIG 

nODULE:BYTE  ARRAY  51(91] 

PROC  Se1Tri3(BYTE  1  INT  y] 
FOR  1=8  TO  98  DO  y=(1»1J/'45 

U=  (y»ll/'5  :  y=188»1-y  :  y==/'45  :  S i  (U  =y 
OD  RETURN 


INT    FUNC    slndNT    1.yl:1==l10D    368 
IF    K91    THEN    y=Si(1] 
ELSEIF    K181    THEN    y=Si  (188-11 
ELSEIF    K271    THEN    y=-Si  (1-188) 
ELSE    y=-Si(368-1J     FI    RETURN (y) 

INT    FUNC    cos (INT    1.y):l==MOD    368 
IF    K91    THEN    y=Si(98-1) 
ELSEIF    K181    THEN    y=-Sl  (1-98] 


o 


JUNE  1985 


o 


ELSEIF  t<271  THEM  tf=-Si  t278-1:J 
ELSE  y=5itt-278J  FI  RETURN CVJ 


PROC  CPonCJ:BYTE  i 

FOR  i  =  8  TO  4  DO  clor  ti  J  =:CP  Ci  J  OD  :  RETURN 


:  VECTOR 

INT  FUNC  ABSCINT  X} 

IF     X<B    THEN    x=-x     FI 


PROC    CHOI)  C>:  BYTE     i 

FOR     i=e    TO    4    DO    clorti3=CHCi3 


OD: RETURN 


RETURN tx] 


INT    FUNC    SORCIHT    XJ : INT    y 

IF    x=8    THEN    RETURN tej     FI : x=ftB5 Cxj : tf=a 

DO    W==+l:XF    W»W+y>x    THEN    RETURN tul     FI 

INT     FUNC     VdottINT     ARRAY    U,W1:INT    X 
X=WC8J»WC8J :x==+uci3»wtlJ 
x  ==-i-UtZ)»wC2}  :  RETURN  Cx] 


OD 


PROC  Fixcol CI :lncCtJ 

DO  MHILE  keu=255  DO  OD 

IF  key=18  THEN  •<ey=255  :  IncC  C3 
ELSEIF  l<ey=57  THEN  l<ey=:255 :  IncHue  C) 
ELSEIF  key=8  THEN  key=255 : incLunCl 
ELSEIF  key=58  THEN  key=255 : DfaulTC tJ 
ELSE  EKIT  FI 

OD  RETURN 


PROC    UprodtINT 
uf8)=vtl3»wC2]  : 
UC11-UC21KWC8)  ; 
uf2J=ut8J»wClJ  ; 
RETURN 


ARRAY    u^w.uj 
u  C81  ==-v  t2l4»wci) 
u  CIJ  ==-w  t8)4»viC2I 
u  t2J  ==-v  C1.JKWC8] 


LISTING  4 


J,S 


FI 
FI 


PROC    NorMizeCINT    ARRAY    UJ : INT 

i=ABS(uceil 

J=ABSC«tlJ J :IF     i<j    THEN 

J=ABSCVC2J J :IF     i<j    THEN 

IF     i>188     THEN     j=l*i/188 

FOR  i=8  TO  2  DO  utiJ== 
FI 
FOR  j=e  TO  1  DO  s=ydottw, wj :s=SQRCsJ 

FOR  i=8  TO  2  DO  U  Ci  J  =u  C  i  J«*128/'s  OD 
OD  RETURN 


=yj     OD 


o 


LISTING  3 


i     COLORS  CLISTING  31 

H0DULE:BVTE  ARRAY  dfaulTCSI.CP 
,C7=C52  24  138  194  81 
.C8=[52  26  8  194  288] 
.Cri=C52  24  194  138  881 

PROC  IncCCJ :BYTE  i 

i=cnow :cnow==:'f'i :  position  Cie.  23) 

IF  i=3  THEN  i=4:cnow=8  FI 

Kolor  Ccnowl  :i=:clorCi)  :  PrintB  Ccnowj 

PosiTionC18.23)  :Print:BCi    RSH    4) 

Pu-tC     J  :PositionC27,23J 

PrintBCi     &    141 : put C     1 : RETURN 


=cnow-l    FI 


PROC    incHueCl  -.BYTE     i,j 

IF    cnowr=8    THEN    i=4    ELSE 

J=clorCi)     RSH    4 

J==*l:lF     J>15    THEN     J=8    FI 

position  CIS. 23)  :PrintBCJl  :PutC'     1 

clorCi)  =  CJ    LSH    4)*CclorCi)     «    14) 

C7Ci)=clorCi) :RETURN 

PROC    incLunC) :BYTE    i.J 

IF    cnow=8    THEN     i=4    ELSE     i=cnow-l    FI 

J=clorCil     «    14 

J==*2:IF     J>15    THEM     J=8    FI 

positionC27,231  iPrintBCJ)  : Put C  '     ) 

ClorCi)  =  CClorCi)     «    248)*j 

C7Cil=clorCil :RETURM 


o 


PROC    D*aultCC) -.BYTE     i 
FOR     i=8    TO    4    DO    C7Cil: 

ClorCil=C7Ci) 
OD    RETURN 


idf'ault  Ci) 


PROC    SetD*aultCl :BYTE    i 
FOR     i=8    TO    4    DO    dfaultCi)= 


:C7C1)     OD:  RETURN 


;     DRAU3D     CLISTING    4) 

rfODULE:BYTE  w*la9=  t81  -  9f  la3=  171 

INT  sx,sy,Mag=  t31 ,cx= [881 ,cy=  t981 
,rx=  t81 ,ry= [81 ,rz= 181 -ri= [381 

CARD  sal,dll,dl2. Iinl6- linl7, linlB 

. Iinl9, lln28, lin21, lin22, lin23, linlS 

INT  ARRAY  P C889) , eye, f oc , R C9) . E C9) . MC9) 
>a-[2l:l8  5  5:188:8  8  8:8: 
58  8  8:18:8  8  8:2:8  58  8:2: 
8  8  8:18:8  8  48:2:18  8  8:17: 
18  58  8:l:28  58  8:17:28  8  8:1: 
38  8  8:17:38  58  8:1:48  58  8:17: 
48  8  e:l:8  18  8:19:58  18  8:3: 
58  28  8:19:8  28  8:3:8  38  8:19: 
58  38  8:3:58  48  8:19:8  48  8:31 

PROC  FixpciNT  ARRAY  O) : INT  i,j 
zero  CP, 1618)  : J=4»Q  C8) *8 
FOR  i=8  TO  J  DO  PCi)=QCi)  OD 
eye=p*2: foc=p+18 : RETURN 


.y.2,s,c 
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PROC  RotCIMT  ARRAY  w) : INT 

y=wci) 

w  CI)  =y»cos  Crx)/'l28  :  v  C2)  =y»sin  crx)/128 

x=u C8) :z=uC2) :s=sincry) :c=cosCry) 

V  C8)  =  CX»c  -z»s)  /128  :  w  C2)  =  Cx»s  +  2»c  ) /'128 
x=u C8) :y=uci) :s=sincrz) :c=cosCrz) 

V  C8)  =x»c  -y»s  :  u  CI)  =x»s+y»c  :  v  C8)  ==/128 
w  CI)  ==/'128:  Nornize  CM)  :RETURN 

PROC  FixHC):lHT  ARRAY  u C3) . WC3) . U C3) 

" C8) =128 : V  CI) =8 : v C2) =8 : Hot  Cw) 

WC8) =8 : wci) =128 : wC2) =8 : Rot  Cw) 

VProdCv,w,u) :NornizeCU) 

RC8)=UC8) :HC1)=MC1) : R C2) =U C2) 

RC3)=wce)  :RC4)=wC1)  :RC5)=wC2) 

R  C6)  =u  C8)  :  R  C7)  =u  CI)  :  R  C8)  =u  C2)  :  RETURN 

PROC  FixEC) :IHT  s 

E  C6) =eye  C8)  : E  C7) =eye  CI)  :  E  C8) =eye  C2) 

MornizeCE'*-12) 

IF  EC8)=e  THEN  E C3) =8 : E C4) =8 : E C5) =128 

ELSEIF  EC6)=e  AND  E C7) =8  THEM 

E  C3) =8 : E  C4) =128 : E  C5) =8 
ELSE  EC3)=-EC6)  :EC4)=-EC7) 

EC5)=EC6)«EC6)  :  E  C5)  ==*E  C7)»E  C7) 

E  C5) ==/E  C8)  : Mornize  CE+6) 

IF     EC8X8     THEN    E  C3)  =-E  C3)  :  E  C4)  =-E  C4) 
EC5)=-EC5) 

FI 
FI  WProdCE+6,E+12-E) :NornizeCE) : RETURN 

PROC    FixHC) 

nC8)=VdotCR,E) :MC3)=VdotCR.E+6) 

MCI) =Wdot  CR+&, E)  : MC4) =Wdot  CR+&. E+6) 
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MC2J  =VdiOX  CR+12,  E]  :  MtSl  =Udot:  tR*XZ  .  E+6J 

Nornizetm : Nornize CM+&I 

VProdCH,  n+e.M+12)  :  Nornize  (11+12)  :RETURN 

PROC    HaksxsuflNT    ARRAY    u):BVTE     i 
IMT    px.py,P2,t:,d:IMT    ARRAY    WC3J 
FOR     i=0    TO    2    DO    wCil  =^«' (il -foe  (il     OD 
IF    «*la3=l    THEH    PX=Udot:  tw,MJ/128 

pu=V<lot  CW,  H+6J/128 

3x=cx*na3»px/'2:  3y=cy-na3»py/'2 
ELSE    d=e«e  C3J  :  t:=i<ia3»d/'8 

px=Vcio-t  (w,  M3/128  :  p»=Udot  (  w.  M+6J/128 

pz=VdoX  tw, M+12 J /128 

d==-p2:IF  d<4  THER  d=4  FI : d==/4 

sx=t;»px/'d  :  sy=t»py/'d  :  sx==  +  cx :  sy=cy-sy 
FI  RETURN 

PROC  CLRO  :  Zero  (sal.  76881  :  RETURN 

PROC  DrawdNT  ARRAY  P)  :  BYTE  i 

INT  ARRAY  PX 

P1:=P*ie 

FOR  i=l  TO  P(8J  DO  pt=:=+8  Maksxsy  (ptj 
KOI  or  (Pi:  (31  ft  151 

IF  Pt(31<16  THEN  LineTO (sx, syl 
ELSE  Dot(sx,syJ :xnow=sx:ynow=sy  FI 

OD  RETURN 


FOR  1=8  TO  2  DO  Pr inTI (pt (i J  1  : Put ( ■ 
RETURN 


1  OD 


LISTING  5 


I     UPDATES     (LISTING    51 

PROC    Uviewo  :Posi-tion(22.15] 
wfla3==+l:lF    wfia3>l    THEN    w*la3=8    FI 
IF    vfla3=a    THEN    print  (••(aSGgsna3DBC13"l 
ELSE    print  (• 


■1  Fl:  RETURN 

PROC  Ueye():BYTE  i : Position (5, 171 

FOR  1=8  TO  2  DO 

IF    eyedX-lO    THEN    eye(il=-l8 
ELSEIF    eye(i)>ie    THEN    eye(i)=18    FI 
PrlntKeyedl)  :putc     1 

OD    Position(24,171 

IF    eyeC31>288    THEN    eye (3) =288 

ELSEIF    eye(31<18    THEN    eye (33 =18    FI 

printiceye(311  :Putc    i:return 

PROC    Unasd  :Posltion(37,171  :na3==*l 

IF    na9>9    THEN    na9=l    FI :  Pnnti  (nasi  :  RETURN 

PROC    Urot(J :Poslxion(12.18) :printl(rxl 
Putc    J  :printl(ryj  :put('    i 
Printitrzl :pb(2) 
FixRd  :FlxMd  :  CLR  d  :Draw(P]  IRETURN 

PROC    Uri d :pasitlon(35.18) 
printurlj  :putc     ):RETURH 

PROC    UcendNT    X.  yl  :  Position  (8.  191 
pnntKxj  :  putc     1 
PrlntKy]  :put('     1:RETURN 

PROC    UfocdNT    ARRAY    VI  :  BYTE     1 

Position(24,191 

FOR    i=B    TO    2    DO    Pr intl (u (i 1  J : Put  (  ■     )     OD 

RETURN 

PROC    UPtdHT    nl  :Posltlon(5.221  :PrintI(n3 
putc     3:  IF    n<18e    THEN    Put  C     1     FI 
Position (38. 221 : Pb (8) :RETURN 

PR8C    UcxyzdNT     ARRAY    Pt):BYTE     i 
Posltion(15.221 :PrintB(Pt(3)     &    31 
IF    Pt(31<16    THEN    PrintC"       LlneTo    "1 
ELSE    PrlntC  Plot       "1     FI 


PRBC    Uar d :Position(l,151 

IF    3*133=7    THEM    3* la3=8 : cx==+88 : CP=C8 

PrlntC'xox  GRAPHICS  8  xox"l : Gr8 (dllJ 
ELSE  3«=lag=7:cx==-88:CP=C7 

PrlntC'x  GRAPHICS  7PLUS  x"l:Gr7(dll) 
FI  Ucen(cx.cy) 
CPond  :CLR(1  :Draw(P3  :  RETURN 

PROC  UResetdrBYTE  i 
position  (5. 17)  : Pb (12) 
Positlon(12.18) :Pb(12) 
position(8.191 :Pb(9} 
Posltion(24.191 :Pb(14) 
FOR  i=l  TO  8  DO  P(1)=D(1)  OD 
Ma3=3 : rx=8 : ry=a : rz=8 : r 1=38 : FlxE  d 
Ueye  (l  :Ufoc (foe)  : Una3 d  :Urot ()  :Url () 
cy=9e : cx=168 : 3  f 1 a3=8 : Usr  d : RETURN 

LISTING  6 

;  5TICK3D  (LISTING  61 

PROC  JoyDdNT  n]  :  8-EDIT 
BYTE  i.k.friNT  ARRAY  Pt 
IF  n=8  THEN  f=0    ELSE  f=l 
n==*l :  pt=P+ie-»-8»n  :  UPt  (nl 
Kolor(pt(31  ft  151:Maksxs 
DO  IF  n>288  THEH  EKIT  FI 
UHILE  Stri3(81=8  DO 
st=Stick(8) :Dit(sx.s 
IF  St<15  THEN  Pt(21= 
Maksxsy (ptl :Ucxyz( 
FI  Dit(sx.syl 
OD 

3t=Stlck(81 :Dlt(sx,syl 

IF  key<255  THEM  k=key : 

IF  k=33  THEH  n==+l : U 

IF  Pt(31 <16  THEN  L 

ELSE  Dot (sx.syl :xn 

IF  f=l  THEN 

FOR  1=8  TO  3  DO 
FI  Pt==+8:KOIor (pt 
naksxsy(pt) :ucxyz( 
ELSEIF  k=18  THEN  Pt ( 
ELSEIF  k=18  THEN  Inc 
Pt(3)  =  (Pt(3)  ft  16) 
ELSE  key=k:EHIT  FI 
FI 

IF  st<15  THEM  Pt(8)==+ 
Pt(l)==- jy (St) :Maksx 
FI  Dlt(sx.sy) 
OD  P €8) =n-l: RETURN 


o 


1-ADD 

n=P(8)  FI 
Ucxyz(pt) 
y(Pt) :Dit(sx.sy) 


y) 

=- jy tst) 
pt) 


o 


key=255 

Pt(n) 

IneTo (sx. sy) 

ow=sx : ynow=sy    FI 

pt(4+l)=Pt(il     OD 

(31     ft    151 

ptl 

31==!     16:Ucxyz(pt) 

CO 

-t-c  no  w :  uc  xyz  (ptl 


jX(Stl 

sy(ptl :Ucxyz(pt) 
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PROC    JoyFd:BYTE     1  :  INT    ARRAY    pt  (3) 

IF    cno%i=8    THEN    Kolor(l)     FI 

FOR     i=8    TO    2    DO    pt(l)=foc(l)     OD 

Maksxsy  (pt)  :Dit (sx.syl  : Uf oc (ptl 

DO 

MHILE    Strl3(Ql=8    DO 

st=Stick(81 :Dit(sx.syl 

IF  st<15  THEN  Pt(21==- jy(stl 

Maksxsy (ptl :Ufoc (ptl 
FI  Dlt(sx.syl 
OD 

st=Stick(81 :Dlt(sx,syl 
IF  key=33  THEN  key=255 

FOR  i=8  TO  2  DO  *OC(il=pt(il  OD 
CLRd  :Draw(Pl  :  Maksxsy  (ptl 
ELSEIF  key<255  THEN  EKIT  FI 
IF  St<15  THEM  Pt(81==* jx(stl 

Pt(ll==- jy (St)  iMaksxsy (ptl  :U*oc  CPt) 
FI  Dlt(sx.sy) 
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o 


o 


o 


OD    Uf'OG  (fOGl  :  RETURN 

PROC    JoyEC):lNT    x,y,2 
x=eyetej :y=eyetlJ :2=e«et2J 
DO    st=5ticl<C8J  :UeyetJ 

UHILE    St:rigtej=0    DO    sT:=St:lck  tOJ 
eye t2J==-jy tstj : eye t3J ==+ jx tstj 
Ueye  tJ 
OD 
IF    key=33    THEM    l<ey=255 

FixECJ  iFixMCJ  :  CLR  C)  :DrawtP3 
x=eyeC8J :y=eyeci) :z=eyet2J 
ELSEIF     key<255     THEM     EKIT    FI 
eye tej ==* Jx CSX) : eye tlJ ==- jy tst J 
OD    eye  tej  =x:  eye  tl3=y  :  eye  t2J=z:  UeyeO 
RETURN 

PROC    JoyCtJ:XHT    x,y 

IF    cnovi=8    THEM    KolortlJ     FI 

x  =  cx:y=cy:Dil:Cx,yJ 

DO    3-t  =  S"ticl<  C83  :Ucentx,yJ  :Dit(x,y) 
IF    •<ey=33    THEM    key  =  255 

cx=x : cy=y : CLR CJ iDrawCPJ 
ELSEIF     key<255     THEM     EKIT     FI 
x  =  =  +  jxt;s-tj  :y  =  =  -i- jy  tsTJ  :Dittx,yJ 

OD    Ucentcx.cyj :RETUHH 


LISTING  7 


;  DISKIO  [LISTING  71 


H0DULE:BVTE  err 
BYTE  ARRAY  flnC16] 


afaorx=" 


WiMlX^a 


PROC  MilErrCBYTE  ej      

position  CI. 161  :  Pr  i nx  f  "■^ilrliiai"! 
PrlnXB  Cel  :  err=l :  i<ies'>-=i  in21 
posiXianCl.2.211  rPi-inXBCel 
MHILE  key=255  DO  OD  l<ey=21 :  RETURN 

PROC  CIO=SE456CBYTE  a.xl 

PROC  I02(BYTE  end  CARD  buf.lenl 
BYTE  I0CfKid  =  866  ;  7-LOAD  11-SAWE 
CARD  I0buf=8e8.I01en=:872 
IOcnfi=cnd  :  lObuf  :=buf  :loien=len 
CIO Ca. 321 : RETURN 

PROC  DlrCliBVTE  i-J-lfX=82 

BYTE  ARRAY  a tl81 . f t9) 

lfX=22:PosiXionC22.31 

FOR  i=l  TO  11  DO  PbCiei :PuXEtl  OD 

position  (22. 31  : J=e 

Close  (21  : Open  C2. "D :*■ U3D". 6. 81 

FOR  i=l  TO  22  DO  lnpuTSDC2.al 

IF  a (81 =16  THEN  EKIT  FI 

SCopy5(f,a.3.181 :prinX(fl 

IF  J=8  THEN  J=l:PUXC  ] 

ELSE  J=8:PUXE(1  FI 
OD  PosiXion(22.141 :PrinX(al 
Close (21 : lfX=l:RETURN 

PROC  Inp(BYTE  ARRAY  f 1 : BYTE  i 
BYTE  ARRAY  a (181 
SCopy(f,"D:  "l 

posiXion(23.161 :Pb(151 
position (23. 161 :lnpuXS(al 
i=«(81+3:lF  i>ll  THEN  i=ll  FI 
SAssi3n(f  .a.B.iei  :  SAssign  (f  ,  ■■ .  V3D". 
posiXion(23.161 :PrinX(fI : RETURN 


UHILE  l<ey=255  DO  OD  k=key :  key=255 
IF  k<>62  THEN  Posi X i on (1. 161 : PuX ( • SI 

PrinXOborXl  :  RETURN 
FI  x=Error : Error=MyErr : err=8 
n=8»*P(81  *18:  Close  (21  :  0Pen(2.  *ln,8-81 
IF  err>8  THEN  Close (21 : Error=x : RETURN  FI 
102 (11. P. nl :I02(11.C7-51 :Close(21 
PosiXion(1.161  :PrinX("  mit-\H*im       "1 
Error=X:Dir(l  RETURN 

PROC  LoadP(l:BYTE  k : CARD  n.X 
PosiXion  (1  .  i  61  ;  Pr  inx  (■«■  — ■■■■»'^  "j 
lnp(f inl 

PosiXlond,  161  :Prinx  f  FLI -■■iT:1>'M"l 
UHILE  key=255  DO  OD  k=key : key=255 
IF  k<>8  THEN  Posi Xi on (1 . 161 : PuX ( • LI 

PrinX(aborxi : RETURN 
FI  X=Error : Error=MyErr : err=8 
Close(21 :0pen(2. fin. 4. 81 

IF  err>1i    THEN  Close  (21  :  Error=x  :  RETURN  FI 
102  (7. P. 21  :n  =  8»P(81+16 
102(7. P*2.n] :I02(7.C7-51 :Close(21 
PosiXion  (1,161  :  PrinXC"  ■■iT;lnai»   "l 
Errorr:X:seXD*aulX(]  :CPon(] 
POSiXion(38.191 :Pb(61 : RETURN 


LISTING  8 


i     PRINTIO  (LISTING  81 

PROC  PpXdNT  ARRAY  VI 
prinXD(2."("'l  :  PrinxiD  (2.  w  (81 1 
prinXDC2."  "1  : Pr inXID  (2. w (11 1 
PrinXD(2."  "1 : Pr inXID (2. w (21 1 
PrinXD(2.":"l : PrinXID(2.«(31 1 
PrinXD(2."l  "liRETURN 

PROC  PrnX(l:BYTE  i.J.kzCARD  n.X 
BYTE  ARRAY  a (131 . sX= (3  27  51  163 

.pre=[4  27  75  192  83.s,d(1931 
PosiXion  (1.  161  :Pr  inx  (■•■PEX^DE&ESi  "1 
UHILE  key=255  DO  OD  k=key : key=255 
IF  k<>18  AND  k<>58  THEN  PosiXi on (1. 241 

PUXCPl  :PrinX(aborXl  :  RETURN 
FI : X=Error : Error=MyErr : err=8 
Close(21 :OPen(2."P:".8.81 

IF  err>8  THEN  Close (21 : Error=X : RETURN  FI 
b(81=12:SCopy  (a.bl  :SCopyS(a. fin, 3. 141 
PrinXDE(2."  "1 : Pr inXDE (2, al 

IF  err>8  THEN  Close (21 : Error=X : RETURN  FI 
IF  k=ia  THEN  sX(31=16:PrinXDE(2.sXl 

s=sal:d(81=192 

FOR  i=8  TO  39  DO  n=7648*i 

FOR  J=l  TO  192  DO  d  ( jl =s (nl  : n== 
prinXD(2.Prel : Pr inXDE (2, dl 

OD 
ELSE  sX(31=2e:PrinXDE(2,sXl 

prinXD(2."eye="l :PPX(eyel 

prinXD(2.*'  f  ocus="l  :  ppx  (f  ocl 

prinXDE(2."  "1 : i=8: J=8:n=P*18 

DO  i==+l:IF  i>P(ei  THEN  EKIT  FI 
j==+l : n==+8 : PPX (nl 
IF  J>2  THEN  j=8:PUXDE(21  FI 

OD    PrinXDE(2."    "1 
FI    PosiXion(1.161  :PrinX("    ■a!>i:il<a 
Error=x :ciose(21 :RETURN 


-48    OD 


i.l4] 
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PROC    SauePdiBYTE    k  :  CARD 
posiXlon(l.l61  :prinX("J 
lnp(f inl 
posiXion (1, 161 :PrinX("CSl 


>-X 


I1EHU3D     (LISTING    9) 


PROC    l1«fnuO:BVTE     i  ,1  f  t:=82  :  BVTE    flRRHV    dl 
dl=dl2-5:dl  iSt  =  dl  :  <I\Z-<S\  iSX 
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FOR     i=a    TO    12    DO    dl  Ci}  =dl  tS-i-i )     OD 

dl  Cl]=48:dl  C2}=4B:dI  t3}=71:dl  C6)=6 

dl  C8}=4S:dI  t22J=6:dl  t23J=6:dl  t241=16 

dl  C263  =16  :  dl  C2aj  =16  :  dl  C3B1  =16 

dl  C32J=18:dl  l3SJ=dl«255:  1  f  1:=1 

Print t" 

printEC 

PrintEt 

prinTE  C 

printE t 

PrintEC 

printE  C 

PrintE t 

PrintEC 

PrintEC 

PrintEC 

printEC 

PrintEC 

printEC 

PrintEC 

PrintEC 

print C" 

printEC 

printEC 

PrintEC 

PrintEC 

printE  C 

PrintEC 

PrintEC 

PrintEC 

printc" 

linl5=s 


ADD  Points/Lines  ■ 
EDIT  Points/LinesB 
Chanae  EVEXdist.  ■ 
Chansr  FOCUS  ■ 
Change  CENTER     I 


GRAPHICS  7PLUS  x  •■) 


eye 

PreRotated 
Center 
^1  I  I  I  I  il 


f i ienaMe>>" 
dist . 


na 
r  i  = 


git] 

] 


Focus»»3 


Cany    key] 

pt«  color"J 

■mo  lor         Husue 

-^688 
linl6=sa*64a:  1  injL7:=sa+e8a  :  linl8=sa 
Iinl9=sa+76B:  l  inzez=sa+8e0  :  lin21=sa 
linZZ^sa-i-aea:  1  in23=sa'»928:  RETURN 


e*ault"J 


*728 
848 
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by    Paul  Chabot 

ANTIC  Maaazine 


INCLUDE 

'■D 

GR78I1.ACT" 

INCLUDE 

"D 

MISCl-ACT" 

INCLUDE 

"D 

■COLSRS-nCT" 

INCLUDE 

"D 

DRAU3D.nCT" 

INCLUDE 

"D 

UPDATE5.ACT' 

INCLUDE 

"D 

5TICK3D.ACT' 

INCLUDE 

"D 

DI5KIO. ACT" 

INCLUDE 

"D 

PRIHTIO. ACT' 

INCLUDE 

"D 

MENU3D.ACT" 

PROC  setup tJ :BVTE  i 

SetTriSCJ  :SetJxjyCJ  :  Sel:Df  ault  tj  :FixPtQJ 
Gr78DN  CJ  :  «lll=€ll  ist :  sal=sa  :  raM=  =  -33 
Graphics  (83  :raM==  +  33:  €il2=«Jl  isT:cur  =  l 


Cnonci  :lienuC)  ;DirtJ  rUResettJ  :dlist:=dll 

neS'^=I  in28 

RETURN 

PReC    Main (l: BYTE    k: setup tl 
DO    MHILE    l<ew=255    DO    OD    k=:key :  key=255 
dl  ist:=dll:CPon  tl 
IF    k=31    THEN    Mies*=lin22     ;l 

JoyDCl) 
ELSEIF    k=38    THEN    l<ies'^=l  in22     ;2 

CLRC)  :  JoyDfS) 
ELSEIF    k=26    THEN    Mes^=linl7     ;3 

JoyEtl 
ELSEIF    k=24    THEN    r<es-^=linl9     ;4 

JoyFCJ 
ELSEIF    k=29    THEN    wes-^rilinig     ;5 

JoyCCI 
ELSEIF    k=58    THEN    Mes-N^iinZB    ;8 

UResettJ 
ELSEIF    k  =  22     THEN    Mes>^=linl8     ;« 

rx=trx*ri  +  368J     MOD    368:Uro-tC} 
ELSEIF    k=43    THEN    ns5^=\in±e     ;Y 

ry=tru+ri  +  368J     MOD    368:Uro1:t} 
ELSEIF    k=23    THEN    MeS'^=linl8     ;Z 

rz=trz+ri+368J     MOD    368 : UroU tl 
ELSEIF    k=13    THEN    nes'-=Iinl8     ;I 

ri==+l:IF    ri>45    THEN    ri=45    FI:UritJ 
ELSEIF    k=l    THEN    Mes^=linl8     :J 

ri==-l:lF    ri<-45    THEN    ri=-45    FI:Uri 
ELSEIF    k=18    THEN    Mes^z:  1  in23     ;C 

FixCol tJ 
ELSEIF    k=16    THEN    nes-^zilinlS     iV 

Uuiewd  :CLRtl  :DrawtP3 
ELSEIF    k=37    THEM    i<ies'-=  1  inl7     ;M 

UnasC) 
ELSEIF     k  =  58     THEM     dlis1:  =  dl2     ;D 

CMon  tJ  rOirCJ 
ELSEIF     k=e    THEM    Mes^=linl6     ;L 

Loadp  t)  :UeyetJ  :Ufocc*oc3  :FixEt3 

FixMC3  :CLRt3  :DrawtP3  :  Mes-^;;  1  in28 
ELSEIF     k  =  62     THEN    Mes'-=linl6     ;S 

SawePt3  :  Mes-^=l  in28 
ELSEIF    k=:61    THEN    Mes-^=linl5     ;G 

Usr  t3 
ELSEIF    k=lB    THEM    Mes^=linl6     ;P 

PrnTt3  :nes>v=iin20 
ELSEIF     k  =  33     THEN     Mes^=liiT28     ;  SPACE 

CLRC3 :DrawCP3 
ELSE    dl ist=dl2:CMonC3 
FI 
OD 


o 


(3 


o 


enhance  your  picture  details  like  NASA  does! 


PIXEL  SCANNER 


Article  on  pase  14. 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


<S. 


UV  18  REM  GTIA  PIKEL  AVERAGING 

ON  28  REM  BV  LVN  BUCHANAN 

FU  38  HEM   CCJ   1985.   ANTIC  PUBLISHING 

ML  48  GOTO  388 

IK  188  REM  PIKEL  AVERAGING  ROUTINE 

RM  118  REM  SET  AREA  TO  BE  ENHANCED 

«S  111  REM  V-COORDINATE  RANGE 

FU  112  FOR  Y=l   TO  8B 

WP  113  REM  K-COORDINATE  RANGE 

EL  114  FOR  K=l  TO  77 

FS  lis  REM  STOP  ATTRACT  MODE 

58  *  ANTIC  SOFTWARE  UBRARY 


JR 
SK 


DM 

KP  122 

DZ  123 

JF  124 


KF 
JR 
H« 


116  POKE  77,0 

128  HEM  LOCATE  EACH  PIKEL 
TS  VALUE  TO  A  VARIABLE 
121  LOCATE  K-1,V-1,A 

LOCATE  K-1 , V , B 

LOCATE  K-1 , Y*l . C 

LOCATE  K.V-1,D 

LOCATE  K , V . E 


AND  ASSIGN  I 


o 


125 
126 


LOCATE  K , V+1 . F 


127  LOCATE  K+1, 


-1  .  G 


OL  128  LOCATE  K+1,V,H 
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o 


CG 
HG 
YF 
YL 
DF 
GB 
UA 
US 
DC 
GP 

5F 
RM 
KK 
EN 
OV 

IK 
5J 


QE 
«P 


OL 
LM 


129  LOCAT 
138  REM  A 
K=IHT 
REM  L 
IF  K  = 
140  REM  R 
IHl  COLOR 
REM  R 
HEKT 

160  REM  L 

161  POKE 
1 

199   REM 
20B  REM  D 
281  GRAPH 
O 


131 
132 
133 


158 
151 


E  K*l, V+1, I 
UERAGE  ALL  PI» 
t  CA*B-»C  +  D  +  E*F* 
IGHTEN   THE  BAC 
e   THEN  K=8 
EPLOT  PIKEL  IN 
K : PLOT  K. Y*95 
ETURN  FOR   THE 
K : HEKT   Y 
OCK  5CREEN   IN 
77.8: SOUND   0 . 6 


EL  VALUES 
G+H+IJ/9) 
KGROUND 

NEU  COLOR 

NEKT  PIKEL 

GR ■ 9  MODE 
5.14,14: GOTO   16 


218  REM 
211  FOR 


: DRAUTO 
228  REM 
2  21  FOR 
lS+K/8 
222  PLOT 
.  66'»K  :  NEK 
238  REM  D 

231  FOR  K 
AMTO  IS^X 
DRAUTO  H» 

232  DRAUT 
KT  K 

240  REM  D 

241  COLOR 


RAM  ST 
ICS  9  : 
RAU  TA 
=  1  TO 
+  K/'4  ,  7 
RAM  BO 
=  16  TO 
. 74-K : 
15*K/0 
T   K 

RAU  UI 
=  1   TO 
, 10-H/ 
2*24 . 6 
O   46<^K 


ICK  FIGU 

POKE   712 

IL 

15 : COLOR 

l-K/2 : NE 

DV 

4  STEP 
DRAUTO  6 

6.  BB-^K  : 


RE   BIRD 
,144 

K : PLOT   15*K , 75 
KT   K 

-1 : COLOR   K : PLOT 
0-K/l . 8 , 74-K 
DRAUTO   60-K/1 . 8 


NGS 

16 : COLOR 

2 : DRAUTO 

6-K/4 

, 20-K/2 : DRAUTO   75.4S:NE 


K : PLOT   4 . 63 : DR 
K»2*28 . 66-KX4 : 


TO 
K  :  F 
75  , 


.  68-K,'2  :  DRAUTO  68-K/6,60 
RU  258  REM  DRAU  BEAK 
US   251  COLOR   15:F0R  K=1 

RAUTO  48*K . 67-K : HEKT 

LOT   49+K/2. 67 : DRAUTO 
KN  260  REM  DRAU  EVE 
RV  261  COLOR  0:FOR   V=S4 

RAUTO  62.V:NEHT   Y 
LV  270  GOTO   180 
SG  299  REM 
KE  388  GRAPHICS   e:POKE   710 

:POKE   709.2 

Qv    301    ?    :?     :?    .  "taDQEiBcaHsaan 

."   bM   Lyn  Buchanan":? 
NR  302  ?  "This  deno  proaran 

— fisurebird  using  nornai 

TO" 
ZT  383  ?  "connands.    Then 

Mputer  enhances*  the  i na 
the" 
VR  384  ?  "color  value  of  ea 

:?  "averasins  it:  with  th 

e     surroundins  pixels." 
5D  385   ?   "The  BASIC   routine 

s  aboutl2  Minutes! ,   but 

e  worththe  wait.":? 
ZK  310  POKE   752, 1 : POSITION 

?    PRESS  ■BDrataaH"  :  POKE  5 


■H/2:HEKT  K 

5 : PLOT  73,67:0 
OR  K=l  TO  IS : P 
55 : HEKT   K 


TO  56 : PLOT   60 , V : D 


28 : POKE   712,28 

IHEBiaraHHClta"  :  ? 


draws  a  stick 
PLOT   and  DRAU 


he  prograw  'co 
se  by  sanplins 


ch  pixel,   and" 
e  values  of  th 


is  slow  ctake 
the  results  ar 


12,22:?   "READY 
3279 , 8 


RAU  HEAD 
11:F0H  K=1   to 


22 : PLOT   48+K/2 


UH   328   IF   PEEK t53279) <> 6   THEN   321 
SO   338   POKE   53279, 8:G0T0   200 


we  jumpea  at  ii.  '^"  i,,,     i 


e3 


Ok 


"""'"'""■  .aWblackdisks.lnfaa,theyrereally 

H.es*eca.h.Thesearentyou.suna^^^^^^^^^^^^^^ 


FORTHESOPHlSTiaTEDDJSK^^^^^ 

A„de IDDOSO 5  »»  S«     ^„  *ippi„|lhan*I 

PLACE  YOUR  ORDER  TODAY 

i„  California  aOO^mW^ 


□ 


Q 


□ 
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your  Atari  master  weaver 


COLOR  INKLE  LOOM 


Article  on  page  29. 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


Ci 


O 


IPOKE     752, 


J     K 


GO  IB     REM     COLOR     IHKLE      LOOM 

KJ  2B     REM     GERALD     M.      HnGOPIAN 

FM  30     HEM      tcj      1985,      ftMTIC     PUBLISHING 

MF  48     DIM     AHSS t3J , CLS C48J , CLIS C^BJ . SBS Cll 

•  SBlStlJ  -CRStlJ  .l4EftUSt7684J 

UY  58     UEftUS  IIJ  =■•»":  UEnWS  C7B84J  =UEftWS  :  WEnU 

SC2)=MEnVS:nDK=ADRCUEAUS] 

FG  68     LOD=e 

PS  78     GOSUB     828:GaTO     988 

ST  88     GOSUB     938 

RK  98     SCRN=PEEKC881 ♦PEEKt89J»256 

GO  188     K  =  e:A=:l:B  =  3 

OT  118     IF      LOD     THEM      JHK=  US  R  t  ODR  t  "hhaiTlhntaha 

iDhnahntghnQiavaraRaDos  iGiiiciraBi  fa's«amamsui*n»" 

J . AD». SCRN . 76881 
KU  128   IF   LOD  THEN  POKE  71 2 , AS C t MEftMS C768 

1 . 7681J  J 
MR  138   IF   LOD  THEN  FOR  V=788  TO   718:P0KE 

V, ASC f MEAWS tV+6974 . V+6974J J :NEKT  V:GOT 

O   158 
UK  148  POKE   712,8:POKE  718,34 
BP  158  FOR  K=l   TO  79:C0LOR  K/'SISOUND  8,25 

5- CK«2) , 18 , B : PLOT   K,158:DRAUT0  K.iee:N 

EKT  K:S0UND  8,8,8.8 
OQ  168  GOSUB   188:P0KE  559,34 
ME   178  GOTO  288 
HN  188  POSITION  8,B:?  CHHSC125J 

l:POKE   718,34 
JS  198  ?  ■•♦A    B  C    D   E    F   G    H   : 

M    NO": RETURN 
AL  288  REN  LOOM  SET  UP 
HV  218  CLOSE  M1:0PEM  nl  ,  4  .  8  ,  "K  :  ■• 
av  228  IF   LOD  THEN  LOD=e:GOTO  718 
KV  238  GOSUB   180:POSITION  8,3:?  "NUMber   o 

f  threads  per  harness?":?  "CLIMIT  391 

";:INPUT  H:?   : IF  H<1  OH  H>39   THEN  238 
UN  248  GOSUB  188 
DG  258  POSITION  8,3:?  "SURE?   tV/Nl         ": 

GET  ttl.K:IF  KOS9   THEN  238 
MA  268  K=l : V=e : COLOR   8:PL0T  K,V:DHAMTO  H, 
V:PLOT   H,Y:C0L0R  15:DRAUT0  H*»2  ,  Y 
REM  HARNESS  SET   UP 
CLOSE  ttl:OPEN  «»1  ,  4  ,  8  ,  "K  :  "  :  POKE   752 

K=l : V=8 : ET=4 

FOR   T=l   TO  H 

GOSUB  18e:P0SITI0M  8,3:?  "Harness 

Thread  tt    ";T:?  "  color  Selection?" 
t»l,K:IF  K<64   OR  K>79  THEN  318 

GOSUB  188 

CL=K-64 

CLSCT,Tl=CHRStKl 

FOR     K=H     TO     K+l:COLOR     CL:PL0T      H,V:D 
RAUTO     K,ET:NEKT     K 

368     POSITION     8,3:?     "Color     OK      CY/'Nl      ?": 
GET     ttl,K:IF     K089      THEN     K  =  K-2:IF     K089 
THEN     318 

NEHT      T 

H=l : Y=5 : ET=V*4 

FOR      T2=l      TO     H 

GOSUB  188:P0SITI0M  8,3:?  "Harness 

Thread  ts  ";T2:?  ••  Color  selection? 

T  <>1.K:IF  K<64   OR  K>79  THEN  480 

GOSUB  188 

CLl=K-64 

CLlSCT2,T21=CHRStKl 

FOR  X=K  TO  K+l:COLOR  CLllPLOT   »,V: 
DRAMTO  H,ET:NEKT   K 
FH  458  POSITION  8,3:?  "Color  OK   CY/'Nl   ?": 
GET  «tl.K:IF  K089   THEN  K  =  K-2:IF  K089 
THEN  488 
FQ  468  NEKT  T2 
DU  478  POSITION  8.8:?  "«  Press   START   to  w 

eaue.":POKE  53279,8 
DO  488  IF  PEEK  1532791  <>6  THEN  480 
AB  498  POKE  53279.8 
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UR 

278 

TO 

288 

.  1 

PC 

298 

DC 

388 

NP 

318 

nl  : 

:GET 

UK 

328 

OQ 

338 

KM 

348 

JT 

358 

KH 

378 

AB 

388 

HI 

398 

FY 

488 

02  : 

"  :  G 

UJ 

418 

MW 

428 

ED 

438 

ID 

448 

IN 
FI 


DH 


OT 
GG 
ZT 
D2 
EJ 
UH 


U  J 
PP 
2M 
KG 
HV 
PH 


JU 
EZ 


01 
UJ 


TU 

zu 


NP 
ZD 


PV 
UM 


PU 
JK 
MB 


CO 
BM 

PM 

MZ 
PK 


see 

518 

ING 

528 

tK»2 

T   K  : 

538 

548 

558 

see 

578 

588 

18  .  8 

T   H 

598 

688 

618 

628 

630 

640 

18.8 

KT   K 

650 


REM  UEAUING  ROUTINE 
POSITION  8,8:?  "« 


MEAV 


FOR  K=l  TO  79:C0L0R  8:S0UND  8,255- 
J,18,B:PL0T   K,15e:DRAMT0  K.168:NEK 

SOUND  8,0,0,0 
K=l : Y=8 : ET=4 
FOR  H=l   TO   15 : K=l 
FOR  1=1   TO  H 
SBS  =  CLS  CI ,  13 
CL  =  ASC  tSBSl  -64 
FOR  K=K   TO  «+l ; 
COLOR  CL:PLOT 


SOUND  e.RNDCl}«255. 
K,Y:DHAUTO  K,ET:NEK 


SOUND  a,0,O.B:NEKT   I 

K=1:Y=ET*1:ET=V+4 

FOR   1=1   TO  H 

SBS  =  CL1S  t 1 .  II 

CLl=ftSClSBSl-64 

FOR   K=K   TO  K+l:sbUHD   1 , RND CI 1 "2 55 . 

: COLOR  CLl:PLOT   K,V:DRAUTO  K,ET:NE 

SOUND   l,8,e.8:NE»T   I : V = E T ♦ 1 : ET = Y* 4 


668  NEKT   H 

578   JNK  =  USR  C  ADR  ("hhnCTh 

6801 

688  ME AWS (7681 , 76811 =C 

698  FOR   K=7682   TO   768'l 

tPEEK CH-6974 1 1 : HtKT   K 

700  REM  UALUE  CHANGE  O 

710  ?   "KDO  you   Wish   to 

e?  tV/'Hl   ":GE1   tJl,K:IF 

728  TRAP   730 

738  ?  "RType  a   letter 

stj  and  o   Clightestl": 

OH  K>79   THEN   738 

748  U=K-64 

758  A =PEEK 17121 : POKE   7 

K?  CV/N1";:GET  ol,K:lF 


nrthnishnahntiihnmav 

■fa»"l   .   SCRN  ,  AIIK  -  7 

HRS  tPEEK  C7121  1 
:MEAUS(K.K1=CHRS 

F   MEAVING 
chanse  the  ualu 
K089   THEN   788 

between  A  Cdarke 
GET  «tl,K:IF  K<65 


12 . U : ?  "«Ua I ue  O 
K<>  89   THEN  POKE 


712  ,  A 
760   IF   K<>a9   THEN   730 
770   TRAP   40000 
780  ?  "isMeaue  aaain?   t 
F   K=89   THEN   GOSUB   1538 
O 

79  0   ?   "isHeturn   to   Menu 
K:1F   K=89   THEM  POP   :G0 

080  ?  "IS  Leaue  prosran 
K:lF   K<>89   THEN   780 
818  ?  "«  sure? 
:IF  K=89  THEN  GRAPHICS 
828  REM  TITLE  ROUTINE 
838  GRAPHICS  2+16:C0L0 


V/Nl " : GET  Ml , K : I 
:  IF   K  =  89   THEN   18 

?   tV/Nl":GET  Ml, 

TO  1018 

?   tY/Hl":GET  Ml. 

{V/N1":GET  Ml , K 
8  :  END 

R  2 : POSITION  0, 8 


JU  848  FOR  LG  =  8   TO   4:?  n6  ;  "E3»l3»«£3»a»a»=»a» 

awCSMQ-  :  POR  DL  =  1   TO  30:S0UND  O.RND(l]»2 

88,18,8: NEKT  DL 
WC  858  ?  a6  ;  "»C3<»!3<»E»S3*»a»!3»»i3i»:3»S3»"  :  FOR  DL  = 

1  TO  38:S0UND  1 , R HD t 1 1 »2 88 , 1 0 , 8 : NEK T   D 

L:NEKT  LG 
HU  868  FOR  DL=1   TO   388:NEKT  DL:S0UND  8,0, 

8,8:S0UND  1 , 8 . 8 , 8 : SOUND  1 , 9 6 , 1 O , 8 : P O S I 

TION  8,4:?  M6 ; "  THE 

ZS  878  FOR  DL=1  TO  188:NEKT  DL:SOUND   0,12 

I.IO, 8:P0SITI0N  8,5:?  M6 ; "       COLOR    L 

OOM 
GS  880  POSITION  8.8 
LU  898  FOR  OL=l   TO   lOOiNEKT   DL:SOUND  2.81 

, 18 , 8 : POSITION  8,6:?  n6 ; "  BY  GMH 

MW  988  FOR  L=l  TO  88e:NE»T  L 

RD  918  FOR  S=8  TO  3:SOUND  S,8,0.8:NEKT   S 

ZJ  928  RETURN 

HZ  938  REM  SET  UP  TEHT   MINDOU 
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o 


o 


o 


o 


ZT 
MR 
KG 

QP 
VB 

KZ 

NL 
AN 
KZ 
KF 
KI 
II 
MN 

IN 
KV 
NJ 
ZV 
HD 

PS 

ZO 
IM 


HO 
KK 
RN 


VU 
LG 

EV 
LQ 

UI 
MK 

BV 
BZ 
RM 


949  POKE  54286 , 8 : GRAPHICS   8:P0KE  8?, 11 

:POKE  623,192:P0KE  PEEK  t  560  J  ♦  256»»PEEK  C 

5611 ♦166, 143: RESTORE 

958  ADDRES=1536 : POKE   54286, 64:FaR  K^O 

TO  18:READ  P:POKE  ft DDR E S ♦ K , P : MEK T   K:P= 

INT  CftDDRES/256)  : POKE   513.  P 

968  POKE  512 . ADDRES-256»P : POKE   54286,1 

92:DATA  72,  123.  111.  2,  41,  63,  141,  10,  212, 

141,27,288.169,8.141,26.288,104,64 

978  RETURN 

988  REM  MENU 

998  GRAPHICS  2 ♦ 1 6 : P O S I T I ON   1.5:?  n6 ; " 

wa«S  MENU  a»i3»f 
1888  FOR  D  =  l   TO  SOO:NE><T   D 

POKE   752.1:P0KE   710.21 


MENU 


1818 

GRAPHICS  8:P 

8 

1828 

POSITION  8.8 

..  :  , 

1838 

?  •■             1 

1848 

?  ■•             2 

1858 

?  "             3 

1868 

7  ■■             4 

1878 

?   :?  ■• 

CREATE   NEU  UEnVXNG' 
SAVE   UEAUING" 
LOAD   OLD   UEAUING" 
LEAVE   PROGRAM" 
Selection  ?'• 


THEN  181 


1888  CLOSE  «l:OPEN  »1.4.8."K:' 

1898  GET  ««1,K:IF  K<49  OH   K>52 

8 

liee  A=K-46 

1118  ON  A  GOSUB  88.1138,1288,818 

1128  GOTO  1818 

1138  REM  SAVE  PATTERN 

1148  ?  :?  :  7     ••     Saue  to:   1.  -CASSETTE 

2  .  -  DISKETTE" 

11S8  GET  ««1.K:IF  K<49  OR  K>58   THEN  114 
8 

1168  ON  K-48  GOTO  1178.1288 

1178  ?   :?  "Place  tape   in  recorder":?  " 
press  RECORD  and  PLAV":?  "Then  tupe  ■B 

mammam" 

1188  GET  nl.K 

1198  OPEN  112.  8.  128  ,  "C  :  "  :  GOTO  1218 

1288  ?  :?  :?  "Insert  diskette  and  pres 

s   ■laaaraaciH"  :  GET    •ti,K:oPEN    02  .  8.  e.  "O  :  ue 

ftUING" 

1218    7    :  ?    :  ?    :  ?    "        ■BQiDiociiaacacsiaaaQaB " 

1228  ADHI=1NT tADK/256J : ADLO= ADK - A DH I«2 

56 

1238  H00E=PEEKC87) 

1248  IO=864:P0KE  I0+2,11:POKE  10*4. AOL 

OrPOKE   lO+S.ADHI 

1258  POKE  IO+8,4:POKE  10*9,38 

1268  JHK=USRCADR  C  "hhhCJL  VB"  J  ,32J   :CLOSE 

<t2 

1278  RETURN 

1288  REM  LOAD  OLD  PATTERN 

1298  ?   :?  •■  7     "Load   frOM:    1..  CASSETTE 


MH  1388 

8 
OS  1318  POKE 
FN  1328 
JH  1338 

1348 


. DISKETTE- 


GET  1>1,K:IF   K<49  OR  K>58  THEN  138 


752  .  1 
ON  K-4S  GOTO   1338.1378 
?  ;?   :7  "Insert  and  <iueue  tape" 

7    "press   ■laaiisiaH.    tupe   ■aaaoiciiiia" 

1358  GET  ttl.K 

1368  OPEN  tt2,  4  .  128  ,  "C  :  "  :  GOTO  1428 

1378  ?   :?   :7  "insert  diskette  and  pres 

s  KaaamociM" 

1388  POKE   764,255 

1398  IF   PEEKt764J<>12  THEN  1398 

FZ  1488  POKE   764.255 

CK  1418  OPEN  02 . 4 . 8. "D : MEAVING" 

1428    ?    :?    :?    :?    "        ■BCDtziEaaciaHEaraoaacacaa" 


LC 
HJ 
ME 
MR 

GV 
GC 


DK 


AN 
LO 


UP 
MR 

VK 
IE 

MT 
ET 
PU 
IT 

CH 
BU 
DM 
LR 
OB 
TM 
KF 


YB 
PH 
LH 
UC 
JF 
FM 


JU 
BM 


1438 

1448 

56 

1458 

:  POK 

1468 

1478 

tt2 

1488 

1498 

CK*6 

1588 

1518 

1528 

1538 

,  U)  = 

1548 

1558 

1568 

1578 

1588 

1598 

1688 

.  18, 

HT  K 

1618 

1628 

1638 

1648 

1658 

1668 

,  18. 

EKT 

1678 

4 

1688 

1698 


GOSU 
ADHI 

10  =  8 

E  10* 

POKE 

JNK  = 

POKE 
FOR 

974  .  K 
LOD  = 
REM 
?  "K 
FOR 

"e"  :  H 
SBS  = 
K  =  l  : 
FOR 
FOR 
SBS  = 
CL  =  A 
FOR 

8  :  C  O  L 

SOUN 
K  =  l  : 
FOR 
SBS  = 
CL1  = 
FOR 

8  :  COL 

H 
SOUN 

NEXT 
RETU 


B  938 

=IHT tAOK/256J : ADLO= ADK - ADHI»2 

64:P0KE   I0*2.7:P0KE  10*4. ADLO 
5 , ADHI 

IO*8.4:P0KE  IO+9.3B 
USR  CADR  t"hhhSLVei")  .32)  :CLOSE 


7681) ) 
. ASC  CMEAVS 
559.  8 


712,ASC(MEAVSC7e81, 
K=788  TO  718:POKE  K, 
*6974)):NEMT   »:POKE 
l:POP   :G0T0  98 
ERASE  MEAVING  AND  RESET 

ERASING  OLD  PATTERN" 
U=l   TO  48 : CLS CU, U) ="e" : CLIS tU 
EKT   U 

"  ":SB1S="  ":CRS="  " 
V=8 : ET=4 
R=l   TO  15:K=1 
1=1   TO  H 
CLS  CI ,  I) 
SC  tSBS)  -64 

K  =  K   TO  K*l:SOUND  8  .  RND  1 1 )  •>255 
OR  CL:PL0T  X.ViDRAMTO  X.ET:NE 

D  8.8.8.8: NEKT  I 

V=ET*1:ET=V*4 

1=1   TO  H 

CLIS  CI .  I) 

ASC  CSBS)  -64 

K  =  K   TO  K*l:SOUND  1  .  RND  C  1 1  «f  255 

OR  CLl:PLOT  K.V:DRAUTO  H.ET:N 

D  1.8.e.e:NEKT   I : Y=ET ♦ 1 : ET = Y* 


R 
RH 


type-in  music  construction  software 


THE  MUSICIAN 


Article  on  page  37. 


LISTING  1 


Don't  type  the 
TVPO  II  Codes! 


<^ 


o 


OF  18  REM  THE  MUSICIAN 

KO  28  REM  BY  AHGELO  GIAMBRA 

FU  38  REM   Cc)   1985.   ANTIC   PUBLISHING 

RB  48  SI=l:POKE  65.8:GOTO  2868 

DC  58  IF  PEEKC28) <TEMPO  THEN  58 

EM  68  A=PEEKC764) : RETURN 

YK  78  FOR  1=1  TO  S I -1 : PIT CH= ASC C SONG S C I . I 

)  ) 

YC  S8  IF  PITCH=255  THEN  POKE  Cl.ftSCCSONGS 

CI*1.I*1)) :POKE  C2.nSCCSONGSCI*2.I*2)) 

JU  98  IF  PITCH=255  THEN  POKE  C3.A5CC50NGS 
CI*3. 1*3)  ):  1  =  1*3  : NEKT   I:GOTO   288 

LH  188  IF  PITCH=254  THEN  POKE  C1.0:P0KE  C 
2.8:P0KE  C3.e:NEKT   I 

JUNE  1985 


JT   118  IF   PITCH>128   THEN  S US T = 1 : P I T CH =P 1 T 

CH-128:IF  PITCH=12S   THEN  PITCH=128 
QM  128  POKE   C8 . PITCH : POKE  28.B:IF   PITCH=B 

THEN  178 
RJ  138  IF   K>15   THEN  K = 5 : G = 1 : GOSUB  218 
HG  148  YP05=ASC CVPOS CI. I) ) : IF   YPOS>131   AN 

D  YPOS<147  THEN  Y PO S = YPOS - 1 2 8 : PO S I T I OH 
K.YPOS:?  »»6  ;  "*"  :  K  =  K*1 
QS  158   IF  YPOS>203  AND  YP0S<219   THEN  YPOS 

=  YP0S-288  :  POSITION   K.YPOS:?  t»6;"b":K-K 

*1 
KR  168  POSITION  K.YPOS:?  n6 ;  H T S  :  P OS  I TI O H 

K.YPOS-l:?  M6 ;"  I" :  POSITION   K,YP05-Z:? 

continued  on  next  page 
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KH 
1.5 

GK 

TU 

Pfl 
TR 


jn 

LU 
QE 
OS 

RL 

IL 

K5 

VO 

UZ 
FP 

no 

OQ 
FS 
UP 
LI 


W6:  ■• 

178  T 
F  5US 
OTO  2 
188  I 
S  THE 
198  P 

288  G 
POKE 
218  P 
4.8,8 
228  S 
PHICS 
238  P 
248  P 
?  «6  ; 
258  P 

5376 
:  POKE 
268  P 
53268 

787  : 
278  F 

L  :  PO 
258  ,  1 
288  I 
298  F 
I  ,  I  J  = 
388  F 
)  =CHf« 
318  I 
I  :  51  = 
KE  53 
328  P 


I"  :  K  = 
EMPO 
T  OR 
88 

F  0< 
N  1  = 
OKE 

0  :  P 
ca ,  8 
OKE 
:  C=l 
ETCO 

17  •■ 
OKE 
OKE 

P  1  a 
OKE 
5.  16 

537 
OKE 
,  8  :  P 
POKE 
OR  L 
KE  5 
24  :  P 
NPUT 
OR  I 
CHftS 
OR  I 
S  ■■  NE 
MPUT 
51  +  1 
768  , 
05IT 


K  +  2 

=  n5C  CTS  CI ,  I  J  3  wTEMP  :  G05UB  58:1 
PITCH=8   THEM  SU5T=8:NEKT   I:G 

>255   THEN  POKE   764,255:IF   fl-Z 

SI 

53768 , 8 : NEKT   I 


OKE  C 
SUST 
53277 
:  5ETC 
LOR  1 
POKE 
16  .  11 
756,  C 

y" 

53761 
8  :  POK 
75,3: 
53254 
OKE  5 

L  .  68 
=  5325 
3248  , 
OKE  5 

nl  ,  T 
=  1  TO 
:  HEKT 
=  1  TO 
KT   I  : 

Ml  ,  C 
:  POKE 
0  :  RET 
ION  4 


1,8: POKE  C2 , 8 
=8 : RETURN 
, 8 : NTS="»" : K= 
OLOR  8.7.4 
.1.4: SETCOLOR 
559.46:P0KE  5 
2:POKE  53774. 
HRBASE/'256  :  PO 


17 
E  5 
IF 
.  68 
427 
:  NE 
6  T 
68  : 
325 
EMP 

SI 

I 

51 
FOR 
HAS 

53 
URN 
.  22 
:  NT 
G   T 


a  :  POK 
3767  . 
G  THE 
:  POKE 
9.  PMB 
KT  L 
O  532 
POKE 
1.156 
:  INPU 
:  INPU 


E  537 
168  :  P 
H  RET 
5325 
ftSE  :  F 

59  :  PO 
53249 
:  GOTO 
T  Ml  , 
T  Ml. 


: POKE  C3. 8 : 

3 : SETCOLOR 

2, 54 . 4 : GRA 
3277, 3 
112 
SITION  7,8: 

63. 168 : POKE 

OKE  53768.8 

URN 

5 . 188 : POKE 

OR  L=784   TO 

KE  L , 3 : NEKT 
. 92 : POKE  53 

78 
51 
CHAS  : SONGS  C 


:IHPUT  Ml . CHAS : TS CI . I 

1=1   TO  51 
:  VPOS  CI .  I)  : 
762, 8 : POKE 


=CHAS : NEKT 
53764 , 8 : PO 


M6  ;  ■• 

FLAG=8 : RET 

MEN  PB5ITI 


"  :  DE5CS  ;  ■• 

URN 

ON  KP05-1.V 


338   IF   MOUEFLA 

P05 : GOTO   368 

348   IF   SUST   THEN  POSITION  KP05,VP05*2: 

?  M6  ;  ■■   " 

358  POSITION  KP05  .  VP05-2  :  ?  M6  ;  "■   ■•:P05I 

TION  KP05.VP05 

368  IF   5HARPFLAT=3   THEN   ?  M6 ; "y"- 

370  IF   SHARPFLAT=1   THEN   ?  MB;"*" 

388   IF   5HAHPFLAT=2   THEM   ?  M6;"b" 

398   IF   nOUEFLAG   THEN  RETURN 

480  H0UEFLAG=l:HPO5=KP0S*l: RETURN 

418   IF   SHARPFLAT   THEN   GOSUB   338 

428  POSITION  KPOS  .  VP05+ 1  :  ?  «6  ;  "  ■■:POSI 

TION  KP05.VP05-3 

438   ?  M6;"  ":P05ITI0M  KP O 5 ♦ 1  .  Y P O 5 *  1  :  ? 

M6;"  •■:POSITION  KPO  5  ♦  1  .  V  P  OS  -  3  :  ?  M6  ;  "  " 


DO   448   IF   5HARPFLAT   THEN  POSITION  KP05-1, 

VPOS  +  l:?  M6;"  ■■:POSITIOM  KPOS -1  ,  VPOS  -  1 

: ?  M6 ; "  " 
2G  458   IF   SUST   THEN  POSITION  KP05,VP0S*3: 

?  m6;"  ■■ 
UF   468  POSITION  KPOS,  VPOS:?  M6;NTS;"  •• 
ZC   478  IF   NTTVPEOl  AND  RFLAG  =  8   THEN  POSZ 

TION  KPOS,  VPOS-l  :  ?  m6;STEM1S;"  ••:POSIT 

ION  KPOS , VPOS-2 : ?  «6;STEM2S;"  " 
VC  488  IF   HTTYPE=8  OR  NTTYPE=6  OR  NTTVPE= 

3  THEN  POSITION  KPOS+ 1 , V POS- 2 : ?  M6;5TE 

MFLAGS 
FK  498  IF   NTTVPE=6  OR  NTTVPE=3  THEM  POSIT 

lOM  KP0S*1,  VPOS-l:?  m6,-5TE  MFLAGS 
OL  588  IF   NTTYPE=3  THEN  POSITION  KP05*1.V 

P05:?  M6 ; STEMFLAGS 
MC  518  IF   D0T=1   THEN   POSITION  KP0S*l.Vp6s 

:  ?  M6  ;  ■•■  ■' 
LH  528  IF   SUST   THEM  POSITION  KPOS,VP0S+2: 

?  MG ; "s" 
FA  538  IF   RFLAG  OR  NTTVPE=1   THEN  POSITION 
KPOS,  VPOS-l  :  ?  M6;"  ■•:POSITION  KPOS,VP 

OS-2  :  ?  M6;  ■•    ■■ 
NI  548  GOTO  328 
OG  558  REM  POLL  JOYSTICK 
GI  568  A=STICKCBJ : IF   A=15  OR  RFLAG   THEM  5 

98 
8D  578  IF  n=14   THEM  IF  YPOS>4   THEN  YPOS=V 

P0S-l:GOSUB  418:G0T0  558 
VD  588  IF  A=13  THEM  IF  VP0S<18  THEN  VP0S= 

YP0S*1:G0SUB  418:G0T0  558 
KM  598  A  =  PEEK  C764  J  :  IF   A02SS   THEN  POKE   76 

4 , 255 : GOTO  628 
RM  688  IF  5TRIGC8)=e   THEN   1828 
PE  618  GOTO  558 

62  •  ANTIC  SOFTWARE  LIBRARY 


01 
EF 
UK 


628   IF  A=42   THEN  POSITION   4.22:?  M6;"e 

xiX         «  or   n":GOSUB  2498:GOTO  558 

638  IF   A=46   THEM  NT S =CHRS t 239 J : N T T YP E= 

l:DESCS="whole":RFLAG=8:G0T0  988 

648  IF  A=8   THEN  SONG S C S I . S I J = CHR S C25 4 J 


o 


M6 ; "chord  off 


FI 
MU 
I« 
JA 
FE 

NE 
JN 


CD 
GK 
GB 
JK 


PB 
KK 

MF 
MM 
KO 

NC 
PR 
OK 


HE 
LP 


:  SI  =  SI  +  1  :  POSITION  4.22; 

•■:G0T0  558 
658  IF   A=18  THEN  1788 

668   IF   A=45   THEM  GOSUB  1678:G0T0  558 
670  IF  A=63   THEM  GOSUB   1988:6010  1978 
688  IF  A=8   THEM   GOSUB  198a:G0T0  2818 
698  IF  A=57  THEM  NTS =CHR S t 2 3 9 J : N T T VPE = 
2:DESCS  =  "tialf":HFLAG  =  8:G0T0  878 
788  IF  8=48   THEN  948 

718  IF  A=47   THEN  NTS = CHR S t 1 4 8 J  : N T T V PE = 
4  :DESCS  =  " quarter '■:RFLAG  =  8:G8T8  878 
728  IF  A=S3   THEN  NT T YPE=8 : ST EMF L AG S=C H 
RSC224J:DESCS="ei3hth":EIGHTFLAG=l:RFL 
AG=e : NT$=CHRS C148J : GOTO  9aO 

738  IF  A=27   THEN  N T T V PE = 6 : S T EMF L AGS =C H 
RS  t224J  : DESCS  =  " sixteenth" : RFLAG  =  8 : EIGH 
TFLAG=1 : MTS=CHRS C148J : GOTO   988 
748  IF  A=26  THEM  N T T YPE = 3 : S T EMFL A G S = C H 
RSC224J  :  DESCS  =  "t:hi  r  t«  sec  "  :  RFLfiG  =  8  :  EIG 
HTFLAG=1 : MTS=CHHS C148] : GOTO  988 
758  IF   A=34   THEN  D0T=1:G0T0  988 
768  IF  A=7   THEN  GOSUB  1278:G0T0  558 
778  IF   A=62   THEN  SUST=l:GOTO  988 
788  IF  A=54   THEN  SI=1:F0R   1=1   TO   3:SOU 
ND  8. 15. 18. 18 : FOR  0=1   TO  8:NEKT   D:SOUN 
D  8. a. 8. 8: NEKT  I 

798  POSITION  4.22:?  M6;"son3  cleared": 
GOTO  818 
888  GSTO  828 

818  FOR  1=1   TO  388:NEKT   I : F IR ST T IME= B : 
GOTO   2128 

828  IF  A=21   THEM  5HARPFLAT=2:GOTO  980 
838  IF  A=98  THEM  SH ARPF L A T = 1 : GO T O  988 
848  IF  A=18  THEN  GOSUB  2 1 8 : F IRS T TI ME = 8 
:GOTO  2128 

858  IF  A=7   THEN   GOSUB  558:G0T0  988 
868  IF  A=35   THEN  SH AH P F L A T = 3 : GO TO  98a 
878  IF  EIGHTFLAG  THEM  POSITION  KP0S*1, 
VPOS-2:?  M6 ; "  ":POSITIOM  K P OS + 1 . VPOS - 1 
: ?  M6 ; "  " 

888  IF    NOT  DOT   THEN  POSITION  KPOS+l.V 
POS:?  M6;"  " 
898  GaSUB  4ia:G0T0  558 
988  IF  NTTVPEOl   THEN  GOSUB  418:G0T0   5 


o 


-1 : GOSUB 


58 
FN  918  POSITION  KPOS , VPOS - 2 : ?  M6 ; "  ":POSI 

TION  KPOS. YPOS-l: ?  n6 ; "  ":IF  EIGHTFLAG 
THEM   POSITION  KPOS *1 . VPO S - 2 : ?  M6 ; "   " 
DQ  928  IF   EIGHTFLAG  THEN  POSITION  KPOS+1. 

VPOS-l:?  M6;"  ":IF    NOT  DOT  THEN  POSIT 

ION  KP0S*1. VPOS : ?  M6;"  " 
GT  938  GOSUB  4ie:GOTO  558 
CS  948  IF  NTTVPE  =  4   THEN  NTS  =  "k." 

FH  958  IF  NTTVPE  =  8   THEN  NT  S  =  ".<"  :  NT  T  YPE  =  9 

ND  968  IF  MTTVPE=2   THEN  NTS="_" 

MC  978  RFLAG=l:IF  YP0S=1Z   THEN  GOSUB  418: 

GOTO  558 
UI  988  IF   VP0S>11   THEN  1818 
FN  998  IF   YPOSCll  THEN  FOR  YPOS=VP0S   TO   1 

1  STEP  1:G0SUB  418:NEKT   YPOS 
as  1888  GOTO  558 
KU  1818  FOR  YPOS=YPOS  TO  13  STEP 

418:NEKT   VP0S:G0TO  558 
OC  1828  NK= CVPOS=4J»4* CYPOS=SJ»»7+ CYPOS=6J 

••13*CVPOS=71»19«-CVPOS  =  8)»2  5*CYPOS  =  9J»2 

8*CVPOS=18J»3  4+CVPOS=11J«4  8 
LI  1838  NK  =  NK+  CYP0S  =  12J«*43+  CYP0S  =  133»49+  c 

VPOS=14)»5  5+CVPOS=lSJ»61+CVPOS=16J»64+ 

CVPOS  =  17J»«78*CVPOS  =  18J»i76 
SE  1848  IF   SHARPFLAT=1   THEN  NK=NK-3 
OQ  1858  IF  SHARPFLAT=2  THEN  NK=NK+3 
TH  1868  IF  SHARPFLAT=3  THEN  SHARPFLAT=e 
OM  1878  IF  RFLAG   THEN  SOUND 

O  1898 
NM  1888  SOUND 

8 
HM  1898  FOR   1=1   TO   58:NEKT   I:SOUMD  8.8.8. 

a:  TEMP0  =  18e:  IF  DOT   THEM  T S CS I  +  1 .  S I ♦ 1  J  = 

BR  1188  TEMP0=128»CNTTVPE=11 ♦68«CMTTVPE=2 
3*3e»CNTTVPE=43+15»CNTTYPE=8)t7»CNTTYP 
E=6)*3»CNTTVPE=33 

JUNE  1985 


18 . 8. 18 : GOT 
.UALCSCALESCNK,NK+233 .18.1 


o 


o 


o 


DM 
BB 


nj 

LV 
TC 


BU 
JK 


DI 
HO 


HK 
ED 


MM 
KM 


BR 
PU 


DT 

OK 

ID 
GR 

ZM 
CU 
LD 


TC 
MU 

MT 

EM 

AH 

HR 

VT 

P  J 

05 
LP 
BB 

KU 

NI 

LV 

CV 

TIC 

HH 
OH 
OZ 
TX 

UP 


1118  IF  DOT   THEM   T EMP O = T E MP0»1 . 5 

1128  PITCH=UttL tSCOLES (MK. MK*2J J : IF   SUS 

T  THEH  PITCH=PITCH+128 : IF  PITCH=2S6   TH 

EM  PITCH=253 

113B  SOMGS C5IJ =CHRS tPITCHJ :TStSI.SI3=C 

HRS  CTEMPO) 

1148  IF  RFLAG  THEN   5 0NG5 C SI J = C HRS t 8 ] : D 

OT  =  8:5U5T=8:  DESCS  =  "1uar1:er":MTTVPE  =  4 

1158  VPOS C5I . SIJ =CHRS CYPOSJ : IF   SHORPFL 

AT  =  1  THEM  VPOS  C5I ,  51  J  =CHRS  tfl5C  CVPOS  tSI 

,  5IJ  J  ♦1281 

1168   IF  5HftHPFLftT=2   THEM  VPO 5 t S I  -  S I  3  = C 

HRSCflSCtVPOSCSI-SIJJ+280) 

1178  REM  MAKE  NEW  MOTE 

1188  51=51*1 : POSITIOM   3,0:IF   MTS-CHRSf 

148J   THEM  MTS="»" 

1198  IF   MTS=CHHS C2393   THEM   MTS-"o" 

1288   5TEM1S  =  "  1"  :  5  T  EM2  S  =  "  I"  :  5  T  EMFL  AGS  = '" 

♦":IF   FIR5TTIME=8   THEM  FI R 5TT I ME =1 : GOT 

O   1228 

1218  G05UB  418:TRAP   4eee8:IF  RFLAG  THE 

H  MTS="»" : RFLAG=8 

1228  M0VEFLAG=8:5UEKP05=KP05:«P05=KP05 

♦2:IF   KP05>15  THEM  5 UBF L = 1 : KP05 = 3 : 60SU 

B  2138 

1238  IF   5WE«P0S=1   THEM  5«EKP05=3 

1248  5TEM1S=CHRS C138J : 5 T EM2 S = C HR 5 C 1 38 J 

: 5TEMFLAGS=CHHS t224 J : IF   MTS="»"  THEM  N 

TS  =  CHRS  C148J 

125B  IF   MTS="o"   THEM  M T S =C HR S C239 J 

1268   D0T=8 : 5U5T=8 : G05UB   418:G0T0  558 

1278  POSITION  2,22:?  «»6;"      enter   chop 

d    ":POSITION  2.23:?  «6;"then  press  re 

turn" 

1288  FOR  1=1   TO   3:50UMD  8 . 1 5 . 1 8 . 1 8 : FOR 

D=l   TO  6:MEKT   D:S0UMD  e.a.a.a:NEHT   I 
1298  CHS  =  "        ":OPEM  nl  ,  4  ,  8  ,  ■■  K  :  "  :  POKE 

7B2.8:CI=1:KP=KP0S-1 
1388  A=PEEKt764J : IF   A=2S5   THEM  1388 
1318  GET  >tl.A:POKE   764.255:IF   A  =  1SS  TH 
EM  1478 

1328   IF   CI=6   THEM  1388 
1330  CHS tCI, CI) =CHRS tAJ 
1348   IF   CHRS CAJ ="6"   THEH 
" : 5IKTH=1 

13S8   IF   CHRS CAJ ="7"   THEH 
•■  :  5EVEMTH  =  1 
1368  CHAS  =  CHS tCI ,  CI  J 
1378   IF   CHAS="+"   THEM 
0DCHAR=1 

'   THEM  CHAS=CHRS C18J 


CHS  CCI .  CI)  =• 


CHS  tCI ,  CI)  ="t 


CHAS=CHHS C19) :G0 


:  GO 


THEH  CHAS=CHRS £16) : GO 


THEH 


MB  ;  ' 


CLOSE  nl : P05ITI0 
" : 5EC0HDPA55=8 : 


OR  CHAS="b"  OR  CHAS=" 
CHAS="e"   OR  CHAS="*" 
1458 
OR  CHAS="J")   AMD   SEC 

OR   SEUEMTH) 


1388   IF   CHAS= 

0DCHAR=1 

1390   IF   CHAS= 

0DCHAR=1 

1408   IF   CHAS= 

H  KPOS-1 , 28 : ' 

GOTO   1638 

1410   IF   CHAS= 

c  ■■  OR   CHAS  =  "il"  OR 

OR  CHAS="9"  THEH 
1428  IF  CCHAS="«" 
OHDPASS  THEH  1468 
1438   IF   CGOODCHAR  OR   SIXTH 

AND  5EC0NDPASS  THEN  1468 
1448  GOTO  1388 
1458  SEC0NDPA5S=1 

1468  POSITION  KP-28:?  «t6  ;  CH  AS  :  GOODCH  AH 
=8 : CI=CI*1 : KP=KP*1 : GOTO  1388 
1478  CLOSE  WIIPOKE   782 . 64 : SECOND PA5S=8 
: CHAS=CHS tl. 1) 

1488  MH  =  112»tCHAS  =  "c")*186«tCHAS  =  "el")  + 
18e»tCHAS  =  "e")+9  7»tCHAS  =  "*")*91*»tCHftS  = 
•■3")*8  5«tCHAS  =  "a")*79«»tCHAS  =  "b") 
1498  IF  CX=2  THEH  O 5 1 =12 : OS2 = 21 : GO TO  1 
618 

1588  051  =  12:052  =  21  :CI  =  2  :IF   CH  S  C  2  .  2)  =■•« 
"  THEH  NK=N«-3:CI=3 
1518  IF  CHS C2,2) ="b"   THEH  HK=NK+3:CI=3 


1528 

1538 

1548 

1558 

18 

1568 

=  18 

1578 


IF 
IF 
IF 
IF 


SIKTH  THEN  SIKTH=8 : 052 = 2 7 
SEVENTH  THEH  SE VEH TH =8 : OS2 = 38 


CHS  CCI 
CHS  CCI 


.  CI)  : 
.  CI)  : 


THEH 
THEH 


052=24 
051=9: 052= 


IF   CHSCC1.CI)=' 


■•  THEN  051  =  12:052 


TO  e:HE>IT  a:SOUHD 


TO  3 


IF  CHSCCl.CI)="n"  THEN  XF  CHSCCI* 


JUNE  1985 


1,CI*1)="  ■•  THEN  O51  =  9:0S2  =  21 
PA  1588  IF   CHS CCI . CI) ="M"  THEH  IF  CHSCCI* 

1. CI*2) ="a j"  THEH  051=12:052=33 
BM  1598  IF  CHS CCI, CI) ="M"  THEH  IF  CHSCCI+ 

1 , CX*1) ="t"  THEH  051=9:052=38 
OE   1688  IF   CHS CCI- CI) ="M"  THEN  IF  CHSCCI* 

1,  CX*1)  ="l  ■■  THEN  051  =  9:052  =  27 
XO  1618  SONGS  CSX , SI) =CHRS C255)  : SONGS C5I*1 

.SX*1)=CHRSCVALC5CALESCNH,HK*2))) 
GT   1628  SONGS CSI*2. 51*2) =CHRS CVAL CSCALES C 

MH-OS1.NK-OS1*2))):50HGSC5I*3,SI*3)=CH 

RS CVAL CSCALES CNK-aS2,N»-052*2))) 
BR  1638  SIKTH=e : 5EVEHTH=8: SI=SI*4 : POSITIO 

N  2-22:?  ««6;"  ":POSITX 

ON  2.23:?  «6;" 
VU  1648  POSITION  7.22:?  «t6;DE5CS:IF  CHAS  = 

"*»"  THEN  RETURN 
LR  1658  SOUND  8 , ASC CSOHGS C5 I - 3 , 5 I -3 ) ) , 18 , 

18:S0UHD  l,ASCCS0HGSC5I-2.5I-2)) ,18, 18 

:SOUND  2.ASCC50NGSC5I-1,SX-1)) .18, 18 
GT  1668  FOR  1=1   TO  28:NEHT  I:SOUHD  8.8,8. 

e:50UND   1 , 8, 8 , 8 : SOUND  2 , 8 . 8 , 8 : RETURN 
VV   1678  FOR   1=1   TO   3:S0UND  8 . 15 . 18 . 18 : FOR 

0=1   TO   6:NEKT   a:SOUND  8,8,8,8:NEKT  I 
CC   1688  POSITION  5.28:?  ««6;"chan3e  tpnpo" 

:POSITION  5,22:?  ««6  ;  ■■  " 

MH   1698  P05ITI0H  8,22:?  06 : CHRS C 24 3) 1 CHRS 

C236) ;CHRSC2391 ;CHRSC247] :CHRSC229) :CH 

RSC242) :TEMP0=8.25 
LU   1788  A=5TICKCe) 
KU   1718  IF   A=14   THEH  POSXTIOH  8,22:?  06 : C 

HRSC23ei ;CHRSC225) ;CHRSC243) ;CHRSC2441 

:CHRSC229) :CHRSC242) 
KO   1728  TEMPO=-8 . 25 : GOTO   1788 
KS   1738   IF   A=13   THEH  1698 
MR   1748  IF   STRIGC8)=e   THEH  1768 
OK  1758  GOTO  1788 
UD   1768  TEMP=TEMP*TEMPO : FOR  1=1   TO  3:50UH 

D  8, 15, 18. 18 : FOR  0=1 
8,8.8.8: HEKT   I 
IJ  1778  P05ITI0H  5.28:?  n6  ; 

■•:POSITIOH  4.22:?  «6;" 
■■  :  RETURH 
HF   1788   SI=SI-1:F0H   1=1 

8.ie:F0R  D=l   TO  8:HEKT  D 
VO  1798   SOUHD  8.8.8,a:HEKT   I: 

2:?  t»6  ;  "c  anc  e  1  1  ed" 
RB   1888  POSXTIOH  KP05,YP0S-2: 

5XTX0H  KPOS,  VPOS-1  :  ?  tt6  ;  " 

KPOS.VPOS:?  «»6;" 
BM  1818  IF   SHARPFLAT   THEH  POSITXOH  KP05-1 

,VP05:?  «t6;"  ■■ 
IB   1828  IF   5UST   THEH   POSITXOH  KP0S,VP0S*2 

:  ?  t«6  ;  ■■  ■' 
QO  1838  KP05  =  SVE«PGS  :  IF  SKI   THEN  51  =  1 
UD   1848  IF   5I<4   THEH  558 

5G  1858  IF  ASC CSOHGS C5I-3, SI-3) ) =255  THEH 
51  =  51-4  :  POSITXOH  3,22:?  «t6;"chord  can 

celled" 
FL   1868  FOR   1=1   TO  iee:HEXT  I:P05XTXON  3. 

22:?  »»6;" 
SD  1878  GOTO  558 

R»   1888   IF   TS CSX, 51) ="4"  OR  TS CSI , SX) ="6" 
OR   TS CSI. SI) ="8"  OR   TS C 5 I , 51) ="3"   THE 

N  STEMFLAGS="K" 
VG  1898  GOSUB  328 
LJ  1988  GRAPHICS  18:POKE  53277, 8:POKE  559 

,34:?  ««6;"    EHTER  SONG  MflME" 
EF  1918  OPEN  1»1,  4,  8.  "K"  :  FILEHAMES  =  "D  :  "  :  1  = 

3:?  n6  :  ?  ««6  :  ?  «t6  ;  "  "; 

DG  1928  POKE  16,112:P0KE  53774.112 
OE  1938  GET  «1,CH:IF  CH=155  THEM  CLOSE  nl 

: RETURH 
CV  1948  IF   CH=126  THEH  POSXTIOH   CPEEKC85) 

-1) , CPEEKC84) ) : ?  «6 ; "  ";:POSITIOH   CPEE 

KC85)-1) , CPEEKC84)) :I=I-l:GOTO  1938 
FH  1958  XF   CHRSCCH)<"A"  OH  CHRSCCH)>"Z"   T 

HEH  1938 
MR  1968  FILEHAMES CI) =CHHS CCH) : ?  n6;CHRSCC 

H*128) ;: 1=1*1 : GOTO  1938 
FM  1978  IF  LEH CFILEHAMES)  =2  THEH  OPEH  nl  , 

8,8."C:":F0R  1=1  TO  128:PUT  nl.CH:HEKT 
I : GOTO   1998 
GU  1988  OPEH  nl , 8 , 8 , F ILEN AME S 


continued  on  next  pase 
ANTIC  SOFTWARE  UBRARY  *  63 


' : DESCS: " 

:50UHD  8,15,1 

IPOSITION  7,2 

;?  M6;"   ":P0 
" : POSITION 


ZP     1998     ?     Ml;TEMP:?     ttl  ;  S 

-1 : CHftS=SONGS CIJ : ?     »1 

1=1     TO     SI-1 : CHflS=TS tl 

IK  2008  ?  nl ; CHnS : HEHT   I 

CHflS=VPOS tIJ : ?  nl;CHA 

:FIRSTTIME=e:GOTO   212 

IT  2818  FIIISTTIME  =  8  :  TRftP 

BO  2828  IF  LEH CFILEMAMES 

4 . 8, "C : " : FOR  1=1   TO  1 

I: GOTO  2858 

UT  2838  OPEN  nl . 4 . 0 . F I LE 

NH  2840  CLOSE  ><1:G0T0  21 

«V  2858  SI=1 : HTS="." : GOS 

OSUB  210 : FIBSTTIME=8 : 

LK  2860  REM  INITIALIZE  5 

IQ  2078  DIM  MTStlJ.STEMl 

NG$ci0e0}.Tsti0ae),vp 

2} . FILENAMES (121 
KF  2080  DIM  SCfiLEStll71, 

SC15]  :  DE5CS  =  "<iuarter" 

11 
PO  2890  SCnLES="0Z8029e3 

•»5047OS00538S7O6Oa648 

896102188114121128136 
VM  2100  SCALES ClOOJ ="193 

GOSUB  220O:TEMP=1 
VV     2110  CO=S3760 : Cl=5376 

66 
GR  2120  NTS="»" : 5TEM1S=" 

VPE  =  4:DE5CS  =  ">»uart:er"' 

IP  2130  POKE  53277.  8 -.GRA 

O.O.OlPOKE  756.INT(C 

ION  3,0:?  »»6;"th<?  nus 
CK  2148  POKE  16.112:P0KE 
MM  2150  POSITION  7.22 

.46:P0KE  53277. 3:P0KE 

255.18S:POKE  53260.0: 
CZ  2160  FOR  I=CHRBASE   TO 

.OCNEKT   l:FOH  L=704   T 

NEXT   L 
KV   2170  FOR  L=53256  TO  5 

T   L:POKE  53248. 60:P0K 

3250. 124 : POKE  532S1-1 
GE  2180  IF   SUBFL  THEN  5U 
SR  2190  GOTO   1190 
PR  2200  GRAPHICS   17:P=S7 

PEEK (1061 -12J«2 561/10 
SD  2210  CHRBASE=IHT ( C ( (P 

/'1024-11  1  «1024 
CT   2220  POKE   16.112:P0KE 
RB  2230  FOR   1=1   TO  15:P0 

aam  irsiaBiaBEia]"  :  nekt    i: 

reu . 1 .0" 
US  2240  DIM  E$(761:FOR  I 
S  (I  .  11  =CHRS (Al  : NEHT   I 
UN   2250  DATA   104.104.133 


I-l:FOH   1=1   TO  SI 

; CHAS : MEKT  I : FOR 

1 

:FOH  1=1  TO  SI-l: 

S : NEKT  I : CLOSE  Ml 

O 

2040 
1=2   THEN  OPEN  ol . 
28 : GET  nl . CH : NEKT 

NAMES:GOTO  205B 

20 

UB  280 : CLOSE  nl : G 

GOTO  2120 

CREEN 

S (11 , STEM2S (11 ,50 

OSdOOei  .SNAMESd 

STEMFLAGSdl ,DESC 
: DIM  CHS (51 , CHAS ( 

10330350370400420 
68072076081085091 
14415316  2  173182" 
20421723824  3255": 

2:C2=S3764:C3=537 

I"  :  STEM2S  =  "  I"  :  NTT 
: VP05=12 : KP0S=1 
PHICS  17:SETC0L0R 
HRBASE/'2561  :POSIT 
i  c  i  an" 

53774 . 112 
n6: DESCS : POKE  559 

53254. 60 : POKE  53 
POKE  623.4 

CHRBASE«'7  :  POKE  I 
O   707:P0KE  L.120: 

3259 : POKE  L, 3 : NEK 

E  53249 . 92 : POKE  5 

56 

BFL=0 : RETURN 

856:PMBASE=INT(Ct 

241»1024 

EEK  (1061  -161  ••2561 

53774. 112 
SITION   3.1:?  tt6;" 
?  n6  :  ?  »»6  :  ?  «6  ;  " 

=1   TO  76:READ  A:E 

.193. 104 .133. 192. 


OH 
YF 
01 
IC 
IE 


FI 
OF 
CB 

UA 

NM 
HP 


CP 


QK 


VO 

UT 
AE 
OT 
5K 
KO 
HE 

UM 
VZ 


104  . 
2260 
3.19 
2270 
4.5, 
2280 

0  .  16 
2290 
8  .  16 
2300 
7344 
183  : 
2310 
CHRB 
I 

2320 
HRBA 
:  P  =  5 
2330 
OKE 
2340 
POKE 
2358 
AD  A 
TO  C 
2360 
AD  A 
2370 
2380 

1  :P0 
2390 
1  ST 
OKE 
2480 
1  ST 
OKE 
2410 
1  ST 
OKE 
2420 
41  5 
POKE 
2430 
E- tl 
2440 
E  S3 
2458 
2460 
2470 
2480 
2498 
2500 
ON  4 
2510 
2520 


133, 197, 184 . 133 

DATA  196.169.226.133.195.169.0.13 
4,160,0.162.0.177.194.145 

DATA  192,200.192.0.208,247.232.22 
240,10.230.193,230 

DATA  195, 168, 8, 169, 8. 248. 232. 162. 
0.8,169,0, 145, 196, 280 

DATA  192.8,288,249,232,224,5,248. 
0,0,230.197.169,0,240.236.96 

K=USR(ADR(ES1 ,CHRBASE.PMBASE] :P=5 
+176:F0R  I=CHRBASE*175  TO  CHRBASE* 
POKE   I , PEEK(P1 : P=P*1 : NEKT   I 

P  =  S7344  +  184  :  FOR   I  =  C  HR8  ASE -»  184   TO 
fiSE+191:POKE  I,PEEK(PJ :P=P*1:NEKT 


o 


P  =  57 
SE+  13 
7344* 

FOR 

I  ,  PEE 

FOR 

I.  PE 

FOR 

Z'POKE 

HRBAS 

FOR 

:POKE 

STAR 

FOR 

KE  I. 

FOR 
EP  8  : 
Z.  8  :  N 

FOR 
EP  8  : 
Z.  0  :N 

FOR 
EP  8: 
Z.  0  :  N 

FOR 
TEP  8 
Z.  0 
POKE 
NTCCH 
POKE 
277-  3 
POKE 
DATA 
DATA 
DATA 
A  =  PE 
POKE 
22  :  ? 
FOR 
K  =  US 


344*24 
S : POKE 
112 

I=CHRB 
K (PI  :  P 
I=CHRB 
EKCPl : 
I=CHRB 

I.  A  :N 
E*71 : R 
I=CHRB 

I  .  A  :  N 
T=PMBA 
I=STAR 
248 : NE 
I=STAH 
POKE  I 
EKT  Z: 
I=STAR 
POKE  I 
EKT  Z: 
I=STAR 
POKE  I 
EKT  Z: 
I=STAR 
:  POKE 
NEKT  Z 

IS. IN 
RBASE,^ 

54279 


FOR   I  =  CHRBASE'>128  TO  C 
I . PEEK (PI : P=P+1 : NEKT  I 


AS 
=  P 
AS 
P 

AS 
EX 
EA 
AS 
EK 
SE 
T  + 
KT 
T* 
.  2 
NE 
T* 
.  2 
NE 
T* 
,  2 
NE 
T* 
I. 
N 
T  ( 
25 
.  P 


E*96 
♦1  :  NE 
E*256 
P*l  :  N 
E*Be 
T  I  :  F 
D  A  :  P 
E*48 
T   I 
:  PMBA 
384*4 

I 
512  +  4 
55  :  FO 
KT  I 
648*4 
55  :  FO 
KT  I 
768*4 
55  :  FO 
KT   I 
896*4 
255  :  F 
EKT  I 
CHRBA 
61»25 
MBASE 


TO  CHRBASE*183 : P 
KT   I : P=S7344*480 
TO  CHRBASE*263: 
EKT   I 

TO  CHRBASE*S7 : RE 
OR  I=CHRBASE*64 
OKE   I.A:NEKT  I 
TO  CHRBASE*55 :RE 

SE=PMBASE/256 . 
9  TO  START*3S4*S 

9  TO  START*640-4 
R  Z=I*1   TO  I*7:P 

9  TO  START*768-4 
R  Z=I*1  TO  I*7:P 

9  TO  START*896-4 
R  Z=I*1  TO  I*7:P 

9  TO  START*1024- 
OR  Z=I*1   TO  1*7: 

SE/'2S61  :A  =  CHRBAS 
61 : POKE  14. A 
:P0KE  559.46:P0K 


o 


5376B. O : RETURN 
48. 24. 28. 48. 24. 28. 48. 24 
48. 62. 4. 8. 8. 16. 16. 32 
8. 36. 44. 52. 36. 44. 52. 4 

EK(764):IF  A=255  THEN  2498 

764.2S5:IF  A<>43  THEN  POSITI 
•»6:"  ":RETURN 

1=1  TO  28:NEXT  I 

R  1584841 


let  your  joystick  select  prosram  hues! 


COLOR  PALETTE 


LISTING  1 


Don't  type  the 
TyPO  II  Codes! 


<^ 


Article  on  pase  21 . 


ZC   18  REM  COLOR  PALETTE 

TP  20  REM  BY  JOHN  U.   FELTON 

FU  30  REM   (cl   1985.   ANTIC  PUBLISHING 

JR  48  REM  INITIAL  COLORS 

HT  50  DATA   4  8.282,148,78 

PE  60  DATA  50,82,252.114.172.244.198.0 

BB  70  REM  DISPLAY  LIST 

CU  SO  DATA   112.112,64,69,0.0.133.0.130.0. 

5,133.0.130,0,5.133.0.2.0.2.6  6.0.0.2.2 

.2.2.2.66.0.0.65 
EK  90  REM  DI5P.   LIST   INTERRUPTS 
TU  100  DATA  72. 173. 200. 2 . 69. 79. 37 . 78 . 141. 

64  •  ANTIC  SOFTWARE  UBRARY 


72.173. 
.141.22. 208 . 
.  208.  173. 2 . 6 


10. 212 .141.24.20 

141 . 23. 208. 169 , 5 
GR  no  DATA  1.2.104 
QH   120  DATA 

.  212 

1.  23 
VS  130  DATA  208.173 

5. 208 . 169. 106 . 14 

4  .  64 
AS  140  DATA  72.173- 

10 . 212. 141 . 24. 20 

141. 23. 208. 169. 1 


8.  1 
O.  1 
,  64 

0.  6 
173 
.  69 
.  3. 

1.  O 

200 
8  .  1 
42  . 


73, 
41, 

.  69 
,  1  , 
,  79 
6.  6 
.  2. 

.  2  . 
73  , 
141 


7.  6 
O.  2 

,  79 
6.6 
37 
9.  7 
169 

69. 
7.  6 


.  69 
-  169 

.  37. 
9  .  79 
.  78. 
9.  37 
6  ,  1 

79.  3 
.  69  . 
2  .  16 


79.  3 
6.  1 

78  .  1 
.  37. 
141. 
.  78. 
41.  1 

7.  78 
79.  3 
9.6. 


7.78. 
41 

41  .  18 
78.  14 
24 

141.  2 
.  2.  10 

.  141  - 
7-78. 
141 


o 


JUNE  1985 


o 


00  168 

-  21 

1  .  2 
HZ  178 

.  1. 
DK  188 

18. 

3,  7 
QU  198 
AL  288 

76 
B5  218 

,  22 
HG  228 
HK  238 

6 
MO  248 

LET 


o 


VB 
MF 
PO 

EV 
DA 
LU 

BH 

DR 


EE 
KM 


CH 
TR 


HA 
MM 


DATA 
DATA 

Z,  HI- 

3. 288 . 
DATA 

2, 184. 
DATA 

212 , 14 

.6,69. 
REM  U 
DATA 

95 . 228 
DATA 

8.  96 
REM  S 
DATA 


1.2. 184 . 64 

72. 173. 4. 6. 69. 79, 37, 78. 141. 18 

22.288.173.5.6,69,79,37,78,14 

173, 6, 6, 69, 79, 37. 78. 141. 24 

288. 169.  188.  141. 8.  2.  169. 6.  141 

64 

72. 173. 288, 2. 69. 79. 37, 78. 141, 

1,24, 288, 169, 224, 141, 9, 212. 17 

79, 37, 78, 141, 23, 288, 184, 64 

/B  INTERRUPT 

169,  14, 141.  8. 2.  169,  6.  141.  1,2, 


184, 168, 219, 162, 6. 169. 6. 32. 92 


CROLL  SUBROUTINE 

184. 184, 141. 8. 8, 184. 141. 8. 8, 9 


DATA  GREV. GOLD, ORANGE, RED. PINK. UIO 
PURPLE. BLUE. CYAN. LT   BLUE.TUROUOISE 


KP  250  DATA  BLUE -GRH . GREEN , VLLM- GRN . ORNG - 

GRN.LT  ORANGE 
PF  268  DIM  PMS C1824J . 5CS €788} . C tl23 . CH5S t 

10) .BLANKCIB) ,AS(2ei .BLKStlB) , ROUTINES 

1101 
MT  270  REM  TITLE  PAGE 
VO  280  POKE  186, PEEKC748) 
EA  290  GRAPHICS  e:SETCOLOR   3 , 5 , 6 : SE T C O LOR 

8.14.ie:POKE  718.e:P0KE   752.1 
PE  308  K  =  PEEKC56ej  +PEEKt561J  ••256*9  :  POKE  K 

, 6 : POKE  K*l . 6 

uc    310    POSITION    4,4:?    "OcgacniaaraEiniaQaca 


FA  328  POSITION  18,18:?  "BV 

GO  330  POSITION   13,12:?   "JOHN  M-   FELTON" 

CN  348  REM  INITIALIZE 

OK  350  RESTORE  188:F0R  N=lS5a   TO   1778:HEA 

D  A:P0KE  N,A:MEXT   N 
RP  368  POSITION  11,28:?  "CBACK  IN  A   MOMEN 

T)  ■• 
EV  370  RESTORE  58:FOR  N=l   TO  12:READ   A:Ct 

N)=A:MEKT   H 
KJ  380  RESTORE  68:F0R  N=a  TO  7:READ  A:POK 

E  1536*N, A : NEKT   N 
MI  390  5CSC11="  '•  :  SCS  C788)  =SCS  :  5CS  t2}  =SCS 


408  PMBASE  =  256«HPEEK 

418  BSCH=IHT tPMBASE/ 

428  FOR  N=96  TO  208: 

C57344+N] : NEXT   N 

438  REM  SET   UP  DISPL 

448  GRAPHICS   17:P0KE 

458  DL=PMBASE-256»6 : 

GH=DL+23 

460  RESTORE  8a:F0R  N 

KE  DL*N,A:NEKT   N 

470  POKE  SCRLOU.BSCL 

:POKE  DL*33 , PEEK (560 

561) 

488     POKE     DL+4,PEEKC8 

89):POKE     56a,DL-INTC 

61, DL/256 

498     N=PEEK tBBJ +PEEKC 

NTCN/'256)   :LOH=N-HIGH 

U:POKE  DL+31,HIGH 

588  POKE  512,14:P0KE 

192:POKE  1543,18 

SIO  REM  INIT  SCROLL 

528  RESTORE  238:F0R 

OUTIHES(N,N)=CHRSCA) 

538  H1GH=INTC5CRL0H/ 

GH*2S6:R0UTINES(8.8) 

St9.9)=CHRS(HIGHJ 

548  HIGH  =  IHT  (SCRHIGH 

HIGH«2S6: ROUTINES t4. 

NESt5.5)=CHHSCHICHJ 

550  A=USHtl758) 

REM  SET  UP  P/M  G 
gv;TP  =  PEEKC134)  +P 
STARP  =  PEEKC14ej  + 
OFFSET=PMBftSE-ST 
HI=IHTtOFFSET/25 


0 

N , PEEK 


tl06)  -8  J 
256-5) : B5CL= 
POKE  PMBASE< 

AY  LIST 

559  ,  8 
SCRLOM=DL+22 : SCHHI 

=8   TO   32:REA0   A:PO 


:POKE  SCRHIG 
) : POKE   DL*34 


H , BSCH 
, PEEKC 


8) : POKE  DL*5 
DL/'256)»256  : 


, PEEKC 
POKE  5 


89)»256*400 : 
••256:  POKE  DL 


HIGH^I 
+38, LO 


513,6:POKE  54286, 


568 

578 

588 

590 

688 

56 

618 

628 


POKE  ««TP*2,LDM: 
PMS  1512)  =■'»•■  :  PMS 

C513)  =PMS  C512) 

630  POKE  623.1:P0KE 


SUBROUTINE 
N=l   TO  lO : RE 
:NEKT  N 
256) : L0M=SCR 
=  CHRS  CLOM)  :  R 

/256) : LOU=SC 
4)  =CHRS  CLOU) 


RAPHICS 

EEK  C13S) tZSb 

PEEK  tl41) »25 

ARP 

6  J  :  LOU=OFFSE 

POKE   UUTP*3, 
1640)  =PMS  tSl 


AD  A  :  R 


LOU-HI 
OUTINE 


RHIGH- 
: ROUTI 


6 
T-HI"2 


HI 

2) : PMS 


KM 

UR 

HK 
UI 

KN 

TC 

GM 
L5 

PH 

JG 
ZP 
OM 
CY 

RR 

HV 
ZI 
JM 
SU 
GA 
PL 
CI 
HC 

NZ 
50 
VT 
JU 
UO 
TD 

TO 
VD 
KV 
FA 
QV 
PG 
UM 

HM 

VI 
IK 

ZT 
SE 

OK 
VM 
LK 


MB 
NF 
DU 


YK 
SH 

CO 

HL 

LB 

GB 

ZL 
OE 
KU 


648  POKE  54279  ,  IHiT  CPMBASE/256)  :  POKE  53 

277,3:P0KE  756 , I N T ( PMB A S E/25 6 ) 

650   PMSC9,33)  =  ■  ■  U  U  U  U  U  U  U  U  SU:i2i2S!2£3SUUUUUUU 

U" 

668   REM  DRAU  SCREEN 

670   TSCH  =  PEtK  189)  :  T5CL  =  PEEK t88)  :  POKE  8 

9. BSCH: POKE   88,BSCL 

680  POKE   87.0:P0KE   7 52 , 1 : POS I T I ON   0.0: 

?   SCS 

690  RESTORE   248:F0R  N=0   TO   15:READ   AS: 

POSITION   l.N:?   •■■    ■•;nS:  POSITION   16-tN 

>9).H:?   H:P0SITI0M   39.  M:?   ■■■■•:NEKT   N 

700   POKE   88,TSCL:P0KE  a9,TSCH:P0KE   87. 

0 

710   FOR   H=l   TO   31   STEP   10:COLOR   33*tN= 

11)  +  CN  =  21)'«2+ tN  =  31)»fl38  :  FOR  M=8  TO  6  S 

TEP  3 

720  FOR   1=8  TO  8:F0R  J=8  TO   1:PL0T   M+I 

,M*J-CM=6  AND  N=31)»3:NEKT  J:NEKT  I 

730  NEXT   M:NEXT   N 

748  POKE   87.e:P0KE  752.1 

750     FOB      C=l     TO     12:G0SUB     1280:NEXT      C 

768     POSITION     1.9:?     >t6  :  "■■■■■■■CimiiaHHHH 

■■■■■■■OMiiixQinEicicasaiHHaHaHB" : 

778  POSITION   I.IO:?  n6  ;  ■■■■■■■■■■■■■■■■ 

■■■■oiBBBDBBaGiHaBaaBaaaMaa" : 

780  POKE  89.BSCH:P0KE  8S.BSCL 

790  CRSs  =  "»ui:i:i:i:i:i:u»" 

800  BLKS="»v»»»»»»»»" 

810  POKE  559,46 

820  LY=S20 : Y=l : X=l : GOTO  928 

830  REM  UPPER   UINDOM  ROUTINE 

IF  STRIGCe)=0  THEN  848 

IF   STRIGCe):=e  THEN  GOSUB  135O:G0T0 


TO  15:HEXT  DELAY 


THEN  850 


:4)»3*  tV 


840 
850 

980 
86  0  FOR   DELAY=1 
870  GOSUB   1210 
888  IF  DK=e  AND  DY=0 
890  PBKE   77.0 
908  K  =  K*DK  :  Y  =  Y-»DV 

910  K=K- tK=S)«4* tK=0)«4 : V=V- CV= 
=  8)»3 

920  PMS CLV, LY+9) =BLKS 
930  LY=Y»21*S89 
948  POKE  53248, K»48*22 
950  PMS CLY , LY*9) =CRSS 
960  GOTO  8Se 

970  REM  LOMER  UINDOU  ROUTINE 
988  CL0C  =  1527*K*Y»4:CL0C=CL0C-CV  =  l)*t82 
4:IF   V=3   AND   K=4  THEN  CL0C=712 
990  C=K* CY-1) »4 : COLR=INT (C CC)/16) :LUM= 
C  to  -  CCOLR)  ••16 
1000  BSCRN  =  B5CL  +  BSCH*»256 

1010  SCLOC  =  BSCRN*  CC0LR>2  AND  C0LR<13)^» 
CC0LR-2)»^40*(C0LR>12)»^408 
1020  GOSUB  1240 

1830  BK  =  LUM*19+CLUM>9)i»tLUM-8)/'2:BY  =  C0 
LR:POSITION  BK,BY:?  "X" : L BK= B K : L B Y =8 V 
1840  IF   STRIGC8)=e  THEN  988 
1BS0  GOSUB  1218 

1068  IF   STRIG(0)=8  THEN  POSITION  BX,BY 
:?  •■  ■■:G0SUB  1358:GOTO  840 

107  0  BK  =  BK  +  DX«t2  :BK  =  BX*CBX>27)»tDX:BY  =  BV 
*DY 

1880   IF   BX=LBK  AND  BV^LBV  THEN  1050 
1090  POKE   77,8 

1180   IF   BX>37   OR  BX<19   THEN  BX=LBX:DX= 
O 
1110   IF   BV>15  OR  BY<0  THEN  BY=LBY:DY=8 

1120   POSITION  LBK,LBV:?  "  " 

1138   IF   BSCHN*BY»^4e<SCL0C   THEN  SCLOC  =  S 

CL0C~40 : GOSUB   1240 

1140   IF   BSCRN*BV^^4e>  SCLaC*280  THEN  SCL 

OC=SCLOC+40 : GOSUB   1240 

1150  POSITION  BK,BV:?   "X" : LBX= BK : LB V=B 

Y 

1168      LUM=LUM*DX^(2  :  CC  =  LUM*le«>BY  :  POKE     CL 

OC . CC : C to =CC : GOSUB     1260 

1170     POKE     S8,TSCL:P0KE     89 , T SC H : GOSUB     1 

380 

1180  POKE  88,BSCL:P0KE  89, BSCH 

1198  GOTO  1050 

1200   REM  READ   JOYSTICK  SUB 


704,12:P0KE  53256, 
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TK  1210  S=STICKC81 : DK= tS>4   AND  S<8J-CS>8 
nMD  5<12J : DV= tS=5  OH  S=9  OR  S=13J-tS=6 
OH  S  =  10  OR  5  =  1-»J 
BU  1228  POKE  16.112:P0KE   S  3  7  7'1  ,  1 1  2  :  HE  TURM 

GM  1238  HEM  SCROLL  5UB 

DB  12'»B  n  =  USR  tADR  CROUTINES)  ,  5CL0C)  :  HETUHN 


REM  SET   TEKT   COLOR  SUB 

ft=PEEKC712J-IMTCPEEKt712J/16J»16: 

1543-18-tft>9J«2:RETUHH 

REM  UHITE  HUE/LUM  SUB 

BV  =  IHT  f  C  tCJ/16)   :  LUM=C  CCJ  -BV««16 

V  =  l+tC>-1J*tC>8J:K  =  C-INTttC-lJ/HJ» 

POSITION     K»18-9-  CBV>  9J  ,  V»3-l  :  ?     •■ 

P05ITI0M  K«18-6.  V»f3-1  :  ?   LUM;"  ■■  ; 

POSITION  ««18-3, V~3-l : IF   CCCJ<99 

?  "  •■;:IF  C(C)<ie  THEN  ?  ■■  •■; 

f     C  to  :  RETURN 

REM  BEEP  SUB 

SOUND  8. 58, 14 . 6 : FOR  N=e   TO   18:NEK 

OUND  8, 0. a, 8 : RETURN 


UAIT  FOR  HORIZO 


PF 

12SB 

GU 

1268 

POKE 

OH 

1270 

OH 

1288 

JH 

1298 

4 

HE 

1380 

";  by: 

ID 

1318 

AM 

1320 

THEN 

KH 

133B 

UO 

1348 

DF 

135B 

T  N  :  S 

LISTING  2 


COLOR  PALETTE  INTERRUPTS 

JOHN  U.  FELTON 

tc)  1985,  ANTIC  PUBLISHING 

;  ATTRACT  MODE  RE 


ATTRACT  HODE  CO 


10  : 

28  i 

38  \ 

48  ; 

58  DRKMSK  =        S4E 

DUCED  LUMINANCE  MASK 

68  COLRSH  =   S4F 

LOR  SHIFT  MASK 

78  USYNC  -     SD4eA     ;  MAIT  FOR  HORIZO 

NTAL  SYNCHRONIZATION  REGISTER 

88  COLPF8  =        SDSie     :  COLOR  REGISTER 

FOR  PLAVFIELD  ZERO 

98  COLPFl  =   SD817     :  COLOR  REGISTER 

FOR  PLAVFIELD  ONE 

8188  COLPF2  =  SD818    :  COLOR  REGISTER 

FOR  PLAVFIELD  TUO 

8118  COLPF3  =    SD819    :  COLOR  REGISTER 

FOR  PLAVFIELD  THREE 

8128  COLOR4  =  50208   ;  BACKGROUND  COLO 

R  REGISTER  SHADOU 

8138  VDSLST  =  58288    ;  DISPLAY  LIST  IN 

TERRUPT  VECTOR 

8148  SYSVBU  =  $E45F   :  STAGE  ONE  VERTI 

CAL  BLANK  ENTRY 

8158  SETUBU  =  SE4SC    ;  SET  VERTICAL  BL 

ANK  VECTOR  ROUTINE 

8168  CHBASE  =  SD489   ;  CHARACTER  BASE 

ADDRESS 

8178        -ORG  58688    :  POSITION  ON  PAG 

E  SIK 

8188  COLRS  .DS  1        ;  DEFINE  STORAGE 

FOR  DISPLAY  COLORS 

8198  COLRl  -DS  1 

8288  COLR2 

8218  COLRS 

8228  COLR4 

8238  COLRS 

8248  COLR6 

8258  C0LR7 

8268 

8278  ; 

8288  :  INTERRUPT  nl 

8298  ; 

8388  INTl  PHA 

R  ON  STACK 

8318        LDA  COLOR4 

COLOR 
8328       EOR  COLRSH 


.DS  1 

■  DS  1 
.DS  1 

■  DS  1 
.DS  1 
.DS  1 

.  DS  4 


;  EKTRA  STORAGE 


PUSH  ACCUMULATO 


LOAD  BACKGROUND 


MODE  OPERATIONS 
8338        AND  DRKMSK 
8348       STA  USYNC 
NTAL  BLANK 

8358       STA  C0LPF2   ;  STORE  IN  GR . 8  B 
ACKGROUND  COLOR  REGISTER 

8368       LDA  COLR7     ;  LOAD  DISPLAY  CO 
LOR  SEVEN 
8378        EOR  COLRSH    ;  PERFORM  ATTRACT 

MODE  OPERATIONS 
8388        AND  DRKMSK 

8398       STA  COLPFl   ;  STORE  IN  GR.e  L 
UMINANCE  COLOR  REGISTER 

LOAD  ADDRESS  OF 


INTERRUPT  INTO 


o 


8488 

LDA 

tt  <INT2 

NEKT 

8418 

STA 

VDSLST 

THE 

8428 

LDA 

«  >INT2 

TERRUPT 

8438 

STA 

VDSLST+1 

8448 

PLA 

OFF  OF 

STACK 

8458 

RTI 

ERRUPT 

8468  ; 

8478  ;  INTERRUPT  St2 

8488  ; 

8498  INT2  PHA 

R  OH  STACK 

8588 

LDA 

COLRB 

LOR  ZERO 

8518 

EOR 

COLRSH 

MODE  OPERATIONS 

8528 

AND 

DRKMSK 

PERFORM  ATTRACT 


8538       STA  USYNC 

NTAL  BLANK 

8548       STA  COLPF8    J 

REGISTER  ZERO 

8558       LDA  COLRl     ; 

LOR  ONE 

8568       EOR  COLRSH 

OPERATIONS 
8578       AND  DRKMSK 
8588       STA  COLPFl 
REGISTER  ONE 
8598       LDA  C0LR2     ; 
LOR  TUO 
8688       EOR  COLRSH   : 

OPERATIONS 
8618        AND  DRKMSK 
8628       STA  C0LPF2    1 
REGISTER  TUO 
8638       LDA  C0LR3     : 
LOR  3 
8648       EOR  COLRSH   ; 

MODE  OPERATIONS 
8658       AND  DRKMSK 
8668       STA  C0LPF3   ; 
REGISTER  THREE 
8678       LDA  tt  <INT3  ; 

NEKT 
8688       STA  VDSLST    ; 
8698       LDA  **  >INT3  : 
TERRUPT 

8788       STA  VDSLST+1 
8718       PLA  ; 

OFF  OF  STACK 
8728       RTI  ; 

ERRUPT 
8738  i 

8748  ;  INTERRUPT  t*3 
8758  ; 

8768  INT3  PHA  : 

R  ON  STACK 


DISPLAY  LIST  IN 


;  VECTOR 
POP  ACCUMULATOR 


RETURN  FROM  INT 


PUSH  ACCUMULATO 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

UAIT  FOR  HORIZO 
STORE  IN  COLOR 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

STORE  IN  COLOR 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

STORE  IN  COLOR 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

STORE  IN  COLOR 

LOAD  ADDRESS  OF 

INTERRUPT  INTO 
DISPLAY  LIST  IN 

;  VECTOR 
POP  ACCUMULATOR 

RETURN  FROM  INT 


PUSH  ACCUMULATO 


o 


o 


66  •  ANTIC  SOFTWARE  UBRARY 


JUNE  1985 


LDA  COLOR4 


o 


LOAD  BACKGROUND 
PERFORM  ATTRACT 


MAIT  FOR  HORIZO 
STORE  IM  GR.e  B 


LDA  tt     <INT4 
STA  UDSLST 


STA  UDSLST*! 
PLA  ; 


o 


0778 

COLOR 
0788       EOR  COLRSH 

nODE  OPERATIONS 
0798       AND  DRKMSK 
8888       STA  MSVNC 
NTAL  BLANK 
8818       STA  COLPF2 
ACKGROUND  COLOR  REGISTER 

8828       LDA  C0LR7     ;  LOAD  DISPLAY  CO 
LOR  SEVEN 
8858       EOR  COLRSH    ;  PERFORM  ATTRACT 

MODE  OPERATIONS 
8848       AND  DRKMSK 

8858        STA  COLPFl    ;  STORE  IN  GR ■ 8  L 
UMIHANCE  COLOR  REGISTER 
8868 

NEKT 
8878 
THE 

8888       LDA  ts  >INT't  ;  DISPLAY  LIST  IN 
TERRUPT 
8898 
8988 

OFF  OF  STACK 
8918       RTI 
ERRUPT 
8928  ; 

8938  :  INTERRUPT  *t4 
8948  i 

8958  INT4  PHA 
R  ON  STACK 
8968       LDA  COLR4 
LOR  FOUR 
8978       EOR  COLRSH 

MODE  OPERATIONS 
8988       AND  DRKMSK 
8998       STA  USYNC 
NTAL  BLANK 
1888       STA  C0LPF8 
REGISTER  ZERO 
1818        LDA  COLR5 
LOR  FIVE 
1828        EOR  COLRSH 

OPERATIONS 
1838        AND  DRKMSK 
1848        STA  COLPFl 
REGISTER  ONE 
1858       LDA  COLRe 
LOR  SIK 
1868        EOR  COLRSH 

OPERATIONS 
1878       AND  DRKMSK 
1888       STA  COLPF2 
REGISTER  TMO 
1898       LDA  n  <INT5 

NE»T 
1188       STA  VDSLST 


UAIT  FOR  HORIZO 


LOAD  ADDRESS  OF 
INTERRUPT  INTO 


:  VECTOR 
POP  ACCUMULATOR 

RETURN  FROM  INT 

PUSH  ACCUMULATO 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

UAIT  FOR  HORIZO 
STORE  IN  COLOR 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

STORE  IN  COLOR 
LOAD  DISPLAY  CO 
PERFORM  ATTRACT 

STORE  IN  COLOR 
LOAD  ADDRESS  OF 
INTERRUPT  INTO 


o 


1118 

TERRUPT 

1128       STA  VDSLST+1 

1138       PLA 

OFF  OF  STACK 
1148       RTI 
ERRUPT 
1158  ; 

1168  ;  INTERRUPT  tt5 
1178  : 

1188  INT5  PHA 
R  ON  STACK 
1198       LDA  COLOR4 

COLOR 
1288       EOR  COLRSH 

MODE  OPERATIONS 
1218       AND  DRKMSK 

JUNE  1985 


LDA  tt    >INT5  ;  DISPLAY  LIST  IN 


;  VECTOR 
POP  ACCUMULATOR 

RETURN  FROM  INT 


PUSH  ACCUMULATO 
LOAD  BACKGROUND 
PERFORM  ATTRACT 


1228       STA  USYNC 

NTAL  BLANK 

1238       STA  COLPF2    :  STORE  IN  GR ■ 8  B 

ACKGROUND  COLOR  REGISTER 

1248       LDA  nSES      ;  LOAD  MSB  OF  ADD 

RESS  OF  CHARACTER  SET  IN  ROM 

1258        STA  CUBASE    :  STORE  IN  CHARAC 

TER  SET  BASE  POINTER 

1268        LDA  C0LR7     ;  LOAD  DISPLAY  CO 

LOR  SEVEN 

1278        EOR  COLRSH    ;  PERFORM  ATTRACT 

MODE  OPERATIONS 
1288       AND  DRKMSK 

1298       STA  COLPFl    :  STORE  IN  GR . 8  L 
UMINANCE  COLOR  REGISTER 
1388        PLA  ;  POP  ACCUMULATOR 

BFF  OF  STACK 
1318       RTI  :  RETURN  FROM  INT 

ERRUPT 
1328  : 

1338  :  VERTICAL  BLANK  INTERRUPT 
1348  : 
1358  VBI  LDA  tt     <INT1  ;  LOAD  ADDRESS  OF 


FIRST 

1368 

STA 

UDSLST    ; 

INTERRUPT  INTO 

THE 

1378 

LDA 

»»  >INT1  ; 

DISPLAY  LIST  IN 

TERRUPT 

1388 

STA 

VDSLST*1 

;  VECTOR 

1398 

J  MP 

SY5VBV    ; 

JUMP  TO  OS  VERT 

ICAL  BLANK  ROUTINE 

1488  : 

1418  ;  SET  VECTOR  TO  VERTICAL  BLANK  IN 

TERRUPT 

1428  ; 

1438        PLA  :  DISCARD  NUMBER 

OF  PARAMETERS  PASSED  IN  BASIC  CALL 
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SOLITMERilM       SOF^TWP^FfE 

1B79   Ruf-fner    Rd.    Birmingham,    AL    35210 
PHONE      20S  — «^S<t.  — 0«5>S<£> 


nKND      OKUf*      **DDRI= 
OUn      TC1F»      SO      Wtr^KC  I 


THIRD       F^^F^-rV 
30^       OF=-F='       LIST 


SOf^TUl#=%I=*E: 

F>Ft  ice: 


it:  h4  H  r^  hJ  CZ  K  r-l  E^  Ivl  T  S3 

BIO  ENHANCEMF-NT •I79.95 

1050  RNHONCEMENT 179.75 

1050  MAXIMIZER B9.95 

1050  CONTROLLER 39.  95 

12BK  RAM  UlSK 7^9.95 

4BK  RflMPaWER 79.  95 

32K  RAMPUWER 49.95 

I  c::r>      i  racn  - 

SPARin    DOS 34.95 

Ua    miUDLER 59.  95 

CHIP    FDR    810 B9.95 

HAPPY    fiRCHIVER 37.00 

R-TIME    CARTRIUGE 69.93 

^hJYIHIMi3       hJOT       I— 


BuO    XL 99.95 

1030    MUDEM 99.95 

1050    DISK    DRIVE 179.95 

1010    RECORDER 59.95 

1020    PrnNTER 79.95 

1027    PRINIER 259.95 

1025    PRINIER 199.93 

LimU    PEN 49.95 

TOUCH    TABLE1 59.95 

eno     INIFRKACE 129,  95 

NUMERIC    KEY    PAD 49.95 

IRAK    BALL 29.95 

ATARI     WRITER 39.95 

VIEIICALC 49.95 

SYNCAl  C 49.95 

3YNF1LE 49.95 

SYNIREND 49.95 


ALI-  PRICES  LISTED  ARF  FOR  MAIL  ORDFRH  ONI  V.   CRFDIT  CARD 
AND  L.U.D.  OtiMFRS  APPRUX  I  MA  1  FLY  lOY.    HIUHKR.      Of.Al  FR 
INUUIRIEH  WELCUNF.   SEND  FOR  DIJH  FHFE  BMDCHURF  AND  PRICE 
LIST.   ADD  J5.00  FDR  SHIPPING,  HANDLING  AND  INSURANCE. 
FOREIGN  ORDERS  WELCOME  WITH  BUFFICIENI  POSTAGE  INCLUDED. 


SOUTMEERlNl       ^CDI="TlA»^^FtE: 
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144B       LOY  *»  <WBI    ; 

OF  INTERRUPT  ADDRESS 
1458       LDK  tx    >VBI    ; 

OF  INTERRUPT  ADDRESS 
1468       I.DA  tx6         : 


LOAD  V  MITH  LSB 


LOAD  K  UITH  MSB 


LOAD  ACCUnULATO 


R  UITH  SIK  FOR  IMMEDIATE  UBI 

1470       JSR  SETVBV    ;  CALL  OS  ROUTINE 

TO  SET  VECTOR 
1488       RTS  :  RETURN  FROM  SUB 

ROUTINE 


o 


fast  graphic  power  from  BASIC 


G.U.P.  THE  GREAT 


Article  on  page  45. 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


<^ 


REM     GUP.BnS 

REM  BV  DAREK  MIHOCKfl 

REM   CCI   1985,   ANTIC   PUBLISHING 

DIM  FNS (20] . TEMPS C2e) . ARS (93} 

7     "noutpux  f i I enane" : : INPUT  FNS:cn5 

AND   (FHS  C2,  2)  =■•  :  "  O 

TEMPS (33 =FHS:FNS=TE 


K5  18 

na  2e 

FU  3a 

MF  •♦e 

UP  50 

5  =  0 
SB  60   IF  FNS tl, IJ ="D- 

R   FNS (3 , 3J =" : "J   THEN  80 
MG   70  TEMPS (1 ,  21  ="D :  ■ 

MPS 
MH  80   TRAP   150 
FU  98  ?  :?  :?  "Morkins. 


.Please  stand  b«' 


RESTORE   :REA0   LN:LM=LN:DIM  AS(LN): 


BG 
KS 

DC 

QQ 

KK 

AM 
UD 


EF 
RD 
MG 
KU 


FK 


TD 


':REflO  ARS 

:1   TO  LEN(ARSI 


STEP   3:P0KE   75 


10  : 


'  (Countdo 


:  C  =  C* 


100 

C  =  l 

110  ARS="' 

120   FOB  K= 

2  ,  255 

130  LM=LM-1 : POSITION  10, 

«n  .  .  .  T-";  INT  CLM/IO)  :  "J       •■ 

140  AS(C,C]=CHRS(VAL(ARS(K,Ki'2))] 

l:HEKT  XlGOTO  110 

150  NUMHI=INT (LN/256) : NUMLO = LN - NUMH I«2 

56 

160  OPEN  01,8,0, FHS 

178  AD=ADR(A$} : ADHI = INT ( A D/2 56 } :ADLO=A 

D-ADHI»256 

180  I0=848:P0KE  I0*2,11:P0KE   10-^4.  ADLO 

:POKE  10+5 , ADHI : POKE  I O + 8 . NUMLO : PO KE  I 

0+9 , NUMHI 

190     M  =  US8  CADH  ChhliEaLUia-J  ,  16J   :  CLOSE     Ml 

280    GRAPHICS    8:?    "■caiaixGiaiiaaaGja" 
leae    data    1909 

1010  DATA  2552550000641048710760680710 
55071039065112065140865030067142064859 
'068072869824068042070028071 
1828  DATA  04  00710960712  3  30  7  2  2  33  0  7  2  0000 
88008039858033848048041835051000053052 
841044841852057000000034057 

1038  DATA  0000360330500370430080450410 
48847835043833000000008165203041807005 
206170165204041003168189148 

1848  DATA  8640372071332200732550571420 
64133205166204224192176034165203160002 
240089074136240805074136240 

10S8  DATA  8010741681891050711332141898 
41072133215177214B3722000520S14S214896 
808088255255255255000000000 

1868  DATA  888800000088000008880  015  2  4  00 
15240015240015240063207243252863207243 
252127191223239247251253254 

1070  DATA  1652211972032480411760061662 
83134221133203165221045O38O6S133223165 
203045038065197223240069197 

1080  DATA  2032400231012091332240320730 
64230203165203197221240050197223240046 
197224288237169000133207032 

1098  DATA  0730641652830241012*091332030 
76015065230214208002230215165205145214 
165203024101209133283197223 

1108  DATA  2082351692551332078320730641 
65203197221240885230203076023065096008 
104104184141110065104104133 
1110  DATA  2041041041332211841041332221 


QR 

KN 

PG 

CF 

CN 

HI 

GN 
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73110O6S197221144O8716622114211OO65133 

221165204197222144006166222 

1120  DATA   1342041332221731100651332030 

32194064230204165204197222208240173110 

065133203032194064096008000 

1138  DATA  0000001041412088652382080652 

38208065173212065072169008872173210065 

072169000872173208065072104 

1148  DATA  0742402192810012080030760730 

6414128806520620886510410,4  133203104104 

133204133226076182065173210 

1158  DATA  0651332031732128651332041332 

26104141211066104133221141210065104104 

133222141212865032214865286 

1160   DATA   2088652082190960000800000000 

88880165222197204208003076180064165221 

197203208003076253066176018 

1170   DATA  1662031342211332031652041642 

22133222132204132226165221056229203141 

203066072165204133226169080 

1180   DATA   1412480701412118661848160061 

41248870078203066238203066165222856229 

284176009072169001141211866 

1198  DATA   1840732550241050011412070661 

69088032214066872141287066173205066133 

219169000141207066104824185 

1200  DATA  0088322140661732050661332181 

69128133225169230141183066141168866173 

248878240005024102219102218 

1210   DATA  1652191412138662818012088051 

6^218141213866173211866248828165218873 
255133218165219073255133219 

1228  DATA  16919814118  306614116806617  32 
13066240042032873064024165225101218133 
225165226101219133226165204 

1230   DATA  1972262400202382041652041972 

26240012197222240008032073064230204076 

170866832073864165283197221 

1240  DATA  2400052302030761490660960000 

80088000080008008000000000000160888856 

237283866088846285866014287 

1258   DATA  06604  2  0  4  014  40062  3  7  2  03  0660  762 

40066109203066136288233176004109203066 

024046285866896165284197222 

1268  DATA  14  48861642221332221322  0  4  832  0 

73064165204197222240011230204032073064 

165284197222288245896184184 

1278  DATA  1841332  3810410  413323118413  3  2 

25133226184133227240236141203866169128 

141287866169888832214066072 

1280  DATA  1690001412070661732058661332 

19184832214866173285866133218169255133 

236165225824181218133225165 

1298  DATA  2  2610121913  322  617003  6  226  0481 

81230236165231056229236133204189170869 

141146864169888141287066162 

1380  DATA  0080781460641440030241012271 

86118287066  2  02288241234234133229173024 

068240037165238024101229133 

1318  DATA  2211652388562292291332838321 

94864165231824181236133204165230056229 

229133203832194064076086867 

1328  DATA  165  2362888311652  31133  2841652 

38824181229133283832873864165238856229 
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o 


o 


o 


KG 


IP 


BV 


DH 


o 


2291 
1338 
3328 
2458 
1348 
2183 
8241 
1358 
2481 
2S52 
1368 
6984 
8671 
1378 
7414 
8948 
1388 
6518 
1332 
1398 
8188 
8698 
1488 
7183 
8368 
1418 
3186 
1928 
1428 
2614 
2251 
1438 
9688 
8488 
1448 
SS2S 
2528 
1458 
4688 
81S2 
1468 
2816 
1698 
1478 
2817 


3328 

DAT 
4832 
6787 

DAT 
2188 
8122 

DAT 
6824 
552S 

DAT 
1815 
4114 

DAT 
1141 
6816 

DAT 
9258 
8913 

DAT 
9848 
4184 

DAT 
2188 
6916 

DAT 
9145 
8228 

DAT 
1841 
5318 

DAT 
8888 
2802 

DAT 
2248 
8888 

DAT 
2173 
8817 

DAT 
2896 
6915 

DAT 
3848 


3832 
A  22 
2458 
6215 
A  22 
641 
9133 
A  88 
8888 
5255 
A  25 
1781 
2867 
A  28 
8678 
9818 
A  86 
8781 
8281 
A  86 
8651 
8141 
A  84 
8691 
8282 
A  83 
2141 
2816 
A  28 
8721 
5871 
A  22 
8888 
8818 
A  84 
2S22 
8184 
A  14 
8112 
3846 
A  16 
1698 
7869 
A  84 
8821 


8738 
8876 
6716 
8671 
8133 
6523 
2038 
1888 
8888 
2552 
5255 
8982 
1898 
12SS 
7611 
8768 
9141 
4118 
8120 
9032 
6988 
8268 
1883 
8417 
1772 
8869 
3628 
2471 
8133 
6888 
1652 
6153 
0800 
0100 
8B40 
4825 
1841 
1032 
1282 
8022 
2896 
8315 
8831 
1248 
3321 


6416 
8860 
5231 
6523 
2831 
8824 
3218 
0888 
8888 
5588 
8818 
7868 
4386 
2488 
5868 
9686 
8700 
8864 
1682 
1880 
4141 
7117 
1788 
8189 
1484 
2888 
8235 
6588 
2251 
1024 
2618 
8418 
0888 
2882 
0488 
2248 
4183 
8821 
4101 
8823 
1698 
7866 
8415 
0730 
4173 


5229 
6716 
8562 
8056 
6523 
1812 
8864 
8888 
8888 
1881 
8818 
1332 
8240 
2020 
1690 
8189 
6918 
1418 
2173 
6917 
1918 
3836 
7218 
8320 
1191 
8917 
1628 
8824 
4118 
1652 
5888 
7228 
0040 
0040 
4004 
2542 
3882 
8418 
8288 
8896 
1215 
8831 
7875 
2815 
8498 


133 
523 
292 
229 

eo5 

281 
096 
088 
248 
881 
418 
861 
829 
188 
741 
838 
985 
268 
836 
383 
822 
869 
982 
691 
285 
721 
881 
lOl 
587 
251 
133 
819 
850 
848 
882 
542 
184 
417 
181 
872 
706 
691 
883 
787 
821 


18241812361 
36133284032 


62292291332 
33221165238 


80168248168 
16255008801 


41841418368 
69234141141 


22400881698 
41142867875 


40691418388 
68189818871 


68698410152 
08058173836 


68698130268 
41831869174 


48412488138 
89096071157 


11658891332 
89870869133 


2192288231( 

i2ei4eooo8c 


88482552552 
5425S255248 


01692551418 
41818212157 


68838328862 
68157868003 


48838328862 
33215168887 


17721 

1488 

S31S2 

15815 

1498 

45144 

13813 

1588 

26125 

11411 

1518 

98888 

86286 

1528 

84133 

19823 

1538 

96874 

84115 

1548 

19838 

22413 

1558 

85871 

84188 

1560 

82816 

21228 

1578 

38283 

23315 

1588 

35248 

89688 

1598 

02881 

88188 

1688 

04162 

24789 

1618 

12165 

81624 

1620 

58255 


414183 
DATA  1 
152152 

eiseis 

DATA  1 
144144 
813713 
DATA  1 
124123 
311111 
DATA  1 
886084 
005705 
DATA  O 
204184 
516800 
DATA  2 
874874 
988522 
DATA  2 
218038 
321516 
DATA  1 
133212 
317882 
DATA  2 
249160 
017324 
DATA  1 
238283 
213328 
DATA  1 
884280 
888888 
DATA  0 
881881 
188808 
DATA  1 
884168 
618416 
DATA  1 
889133 
816925 
DATA  1 
888224 


8869 
5315 
1521 
OlSO 
4814 
1431 
7136 
3313 
1231 
8189 
8318 
8828 
3858 
2781 
1332 
0165 
3313 
0740 
3133 
1902 
2191 
0087 
8128 
1890 
4164 
1616 
0081 
2878 
4521 
2382 
3165 
3328 
8768 
8808 
8388 
8840 
4888 
3328 
8801 
2883 
4286 
2131 
5133 
9880 
8822 


896883 
315315 
521521 
149149 
814714 
431421 
135135 
213113 
221211 
108187 
218809 
818798 
846843 
988818 
331841 
234133 
321517 
741681 
218169 
483821 
652181 
132232 
417816 
418721 
232177 
988813 
732428 
849212 
216423 
831652 
284024 
420118 
650700 
800002 
288300 
088848 
888184 
310418 
841841 
173818 
428281 
688391 
287169 
289688 
258828 


8581 
3153 
5215 
1491 
7147 
4214 
1341 
1138 
2811 
1851 
9897 
7687 
8388 
4184 
3323 
2141 
7214 
8524 
8881 
8838 
3321 
1528 
5283 
8588 
2141 
3217 
7884 
8692 
2136 
8328 
1858 
4144 
9625 
8838 
1881 
8888 
1841 
4133 
5314 
2181 
6247 
8583 
8361 
8888 
8886 


53 

1531 

1151 

48 

1461 

1141 

34 

1291 

9118 

84 

8968 

4872 

33 

1841 

4184 

65 

1322 

4870 

33 

2190 

4165 

24 

0748 

8133 

33 

1822 

9212 

17 

8161 

1152 

88 

8881 

5888 

82 

8810 

4888 

84 

2848 

2864 

57 

8961 

3864 

41 

8888 

4 


531531531 
1S11511S1 


461461451 
148148139 


281281271 
117116115 


948938918 
878867865 


332831041 
184133235 


248720418 
133223184 


382188382 
219824185 


748241251 
213165283 


161822172 
869216145 


832382032 
144816856 


642241962 
64888832 


888808838 
882882882 


768738641 
208282288 


658881332 
145212136 


888362861 
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Article  on  pase  35. 


LISTING  1 


Don't  type  the 
TYPO  II  Codes' 


<^ 


O 


RF  1   REM  GUITAR  TUTOR 

TH  2  REM  BV  FRANK  IMBURGIO 

FD  3   HEM   tc)   1985.   AMTIC  PUBLISHING 

HJ  5   CLOSE  nlrOPEN  «tl  ,  4  .  O  ,  "K  :  " 

OQ  18  DIM  TOPS t38J  .  BOTS t38J  ,  FRETS  138  J  , STR 

INGSC30] ,PATTERNt6) ,TOMESt63J :FDR  K=8 

TO   63 : TONES C«3 =32 : NEKT   H:GOSUB  28 
US   15  GOSUB   108:?  ■■«■•:?   :?   :GOSUB  50:G05U 

8  S88:G0SUB  1560:G0T0   15 
RP  28  FOR  H=l  TO  13:READ  A : T OPS t K , K J =C HRS 

CH) : NEKT  K 
RJ  21   DATA   32-32,17,18-23.18.23.18,23.18. 

23.18,5 
EU  25  FOR  K=l   TO  13:READ   A : BO T S C K , X J =CHR S 

tA) : NEKT   X 
TA  26  DATA   32,32,26,18,24.18,24,18.24.18. 

24,18,3 
FN  30  FOR  K=l   TO   12:READ   A : F H ET S t K . K 1 = CHH 

S  CA)  :  NEKT   X 
SG  31  DATA  32.1.18,19.18.19.18.19.18.19.1 

8  .  4 
FC   40  FOR  X=l   TO   13:READ   A : S T RINGS t K . X J = C 

HRS  CA)  :  NEXT   X 
5L  41   DATA  3  2.32.124,32,124,32.124.32.124 

.32.124,32, 124 
AE  45  RETURN 

JUNE  1985 


AC   58   ?   T0PS:F0H  X=8   TO   6:?  X;:?  FRET 

STRING$:NEXT   X:?  BOTS 
JI   60  POSITION   9,8:G05UB   7ee:G0SUB   718 
OU   65   POSITION   2,28:?  "■■QHM  TO  PLAY  NUMB 

ERED   CHORDS" 
QG   70  POSITION   2,21:?   ■■■■BBIB  TO  SOUND  NOT 

ES" 
BI   75  POSITION   2,22:?   ■•■laBSa   for   new  chop 

d.":REM  USE   INVERSE  VIDEO  FOR  P.S.AND 

E5C 
AR  99  RETURN 
SQ  188  GOSUB   1580 

XH  182  POKE  751,l:P0KE  752.1 
SN  118  ?  "Pick  a  note  t;o  build  a  chord  on 

■  ■ 
DV  128  ?  "C":?  "D":?  "E":?  "P":?  "G":?  "A 

•  <  :  ?  "B"  :  ?   :  ?  n^ti 
HH  138  GET  »»1,K:IF  K<65  OR  K>71  THEN  ?  "13 

":G0T0  138 
SP  148  T0H1C=K: TNC=K 
DX  141  GOSUB  1588:?  ■■You  haue  picked  ■■;CH 

RS  CK]  ;  "  as  your  xonic.**:?   :?  "Now  pick 


UO  142  ? 


•1) Natural- 
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lO 
TU 
ZU 


VI 
TO 
GM 
EZ 

BD 
TT 
FI 
VV 
EK 
GT 
GU 


CR 
JH 

EZ 
ON 
RN 
Rn 
PK 

RS 
UL 
VI 
QV 
MB 
UI 
ttV 

on 

HA 
GH 
FK 
VC 
PK 
01 
ZV 
JQ 


XH 
LM 
01 
BP 

KP 

NL 

MM 

EZ 
PO 
SO 
UN 
BB 
BE 
LT 
EU 
AP 
TO 
HK 
FK 
DB 
GA 
HB 
lU 
JF 
ZK 
FB 
GD 

nc 

H  J 
CG 
GT 
AB 
DO 


143  ? 
14'*  ? 

145  TR 
>  3  THE 

146  TR 
IC  +  7 
14?  IF 
158  GO 
16  8  ? 
178  ? 

?  '■4Jn 
188  TR 
19B  IF 
195  CH 
288  RE 
588  GO 
585  PO 
518  PO 
CHRS  C 
515  FO 
EKT  F 
528  FO 
ATTERN 
538  PO 
535  FO 
:HEKT 
548  NE 
688 
681 
682 


•■2  J  F  1  at:" 
••3J  Sharp"  :  ? 
AP      145 : INPUT 
N     145 
AP      4888e:IF 


ACC 
SUB 
"Pic 
"IJ  M 
in  7 
AP     1 

CHO 
ORD  = 
TURN 
SUB 
KE  7 
SITI 
AJ  ;  " 
R  F  = 


=3  THEN 

1588 

k  a  c  lior 

a  Jor" : ? 

th"  :  ? 

88 : INPUT 

RD<1  OR 

CHORD-1 : 

688 : LINE 
52,1: RES 
ON  4 , 2 : F 
" ; : NEKT 
8   TO  5  :  R 


ACC:IF  ACC<1  OR  ACC 

ACC=2   THEN   TONIC=TON 

T0NIC=T0NIC+14 

d  pattern" 
"21Minor":?  "3J7th": 

CHORD 
CH0RD>4   THEN   180 
TRAP  48808 

=K: K=K*CHORD 

TORE  K 

OR  F  =  l   TO   6:REr.D  A:? 

F : FRET=4 
EAD  A : PATTERN CF J =A : H 


IF 
IF 
IF 
683  IF 


R  F  =  8 

tFJ 

SITIOH  4,FRE 

R   1  =  1   TO  5  :  R 

I -READ  A:?  C 

XT  F 

T0NIC=85 

T0NIC=79 

T0NIC=74 

T0NIC=81 


TO  5 : FRET=FRET+2 : RESTORE  P 


EAD     a:?     CHHStfiJ 
HRS  CA} 

EN  T0NIC=72 

EN  T0NIC=73 

EN  TONIC=66 

EN  TOHIC=75 


TH 
TH 
TH 
TH 


684 
685 
686 
687 
688 
658 
699 
788 
781 
782 
783 
784 
785 
786 
787 
718 
♦2  :  ? 

715 

728 

738 

735 

EXT 

799 

EM  U 

1588 

718. 
1555 
N 

1568 
1561 
1562 
1563 
1565 
1578 
2888 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2818 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2999 


IF 
IF 
IF 
IF 
IF 


T0NIC=82 
TONIC=77 
T0NIC=84 
T0NIC=88 
TONIC-83 


THEN 
THEN 
THEN 
THEN 
THEN 


T0NIC=76 
T0NIC=69 
T0NIC=78 
T0NIC=67 
T0HIC=78 


X=tCT0NIC-65J«»l  881 +28888 
RETURN 
?  CHRS  tK3  ; 

IF   ACC=2  THEN   ?  "b" : 
IF   ACC  =  3  THEN   ?  "«>"  ; 
IF  CHORD^l   THEN  ?  "Hin"; 
IF  CH0RD=2  THEN  ?  "7"; 
IF   CH0RD=3  THEN  ?  "nin7"; 
?  "         "  ; 
RETURN 

FOR  X=2  TO  16   STEP  2:P0SITI0N  28, X 
CHRS  C  tX/2)  ♦176J:NEXT  X:TOHE  =  CHORD 

1  =  4  -.FOR  X  =  4  TO  16  STEP  2 

POSITION  23, X:?  CHRS (TONES  CI)  1  ; 

?  CHRS CTONES CI*1J J ; 

CHOHD=TONES tl*2) :GOSUB  7e3:I=I+7:N 

X : CHORD=TONE 

POSITION  23,  K:?  "■HtlBDB"  :  RE  TURN   :R 

SE   INVERSE  VIDEO  FOR  REST 

?  "«••:?  :?  :?  :  POKE  752,8:?   :  POKE 
, 8 : RETURN 

FOR  TIME=1  TO  288:NEKT   TIME:RETUR 


TONIC 

IF  CH 

IF   K> 

IF   K= 

IF   K< 

RETUR 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  A 

SHAPE 


NC : GET  Wl, K 

tKJ="S"  THEN  GOSUB  3888 

AND  K<56  THEN  GOSUB  31f 

THEN  3288 
7  THEN  1568 


19, 
19, 
19, 
19, 
,  28 
19, 
28, 
19 
19, 
28, 
,  19 
19, 
19, 
19, 
19, 
19, 
28, 
19  , 
19, 
VE 
FOR 


19, 
19, 
28, 
28, 
,  28 
19, 
28, 
,  19 
19, 
19, 
,  19 
19, 
19, 
19  , 
28, 
28, 
19  , 
19  , 
19  , 
SET 
FI 


19  , 
19, 
28, 
28. 
.  28 
19, 
19  , 
,  19 
19, 
19, 
,  19 
28, 
19, 
28, 
19  , 
19  , 
28, 
28, 
19, 
S  U 
NGE 


19,  4 
28.  4 
19,  4 
28.4 

28  ,  28 
28,  4 
19,  4 
,19,28 
19,  28 
19,  4 
,19,4 
19,  28 
28.  4 
19,  4 
28,  4 
19.  4 
19.  4 
19,  4 
28,  28 

P  ALE  NEEDED 
R  DOTS. 


ZH   3888  REM  SOUND  NOTES  INDIVIDUALLV 

GV  3885  RESTORE  LINE«'99:F0R  H  =  B     TO  4:READ 

A : PATTERN  CXI  =A  : NEXT  X 
UO  3818   SOUND  8  ,  P A T TERN ( 8 )  .  1 8 , 8 : GOSUB  ISS 

5 
>fD  3828  IF  CH0RD  =  1  OR  CH0RD  =  3  THEM  SOUND 

1 , PATTERN  (4)  , 18, 8 : GOSUB  155S:GOTO  3848 


o 


UC 

XN 

GS 

TH 

SB 

CE 
BS 
CC 


LF 
IK 

PO 
NM 

OA 
BZ 
OF 
KE 
XD 
HT 


TG 
HS 
IF 
LN 
LO 
OV 
OU 
01 
OF 
DO 
HJ 

OX 

DM 

EF 

DH 

HZ 
SC 
MX 
MX 
JI 
MG 
HP 


MA 
LS 


SI 
PT 


SK 
PE 
UE 


3838   SOUND  1 . P A T TERN ( 1 ) , 1 8 , 8 : GOSUB  1S5 

5 

3848  SOUND  2 , P A T T ERN (2) , 18 , 8 : GOSUB  155 

5 

3858   IF   CH0RD=2   OR  CH0RD=3  THEN  SOUND 

3,  PATTERN  (31  ,  18 ,  8 : GOTO  3868 

3855  SOUND  3  ,  I  N  T  (  CP  AT  TERN  CO) /'21  -8  .  5)  .  1 

8,  8 

3868   GOSUB  1555:G0SUB  1555:F0R  X=8  TO 

3:S0UND  X,8,8,8:NEXT  X:RETURM 

3188  REM  PUT  CHORDS  INTO  MEMORV 

3118  T0NE=(,K-49)»7:RESTaRE  LINE  +  99 

3115  READ  ONE. THREE, FIVE, SEV,MINTHREE : 

TONES  (TONE)  =ONE:  TONES  (T0NE'»21=FIVE 

3128   IF   CH0RD=8  OR  CH0RD=2   THEN  T0ME5( 

T0NE*11 =THREE : GOTO  3138 

3125   T0NES(TDNE*11=MINTHREE 

3138   IF   CHORD=2   OR  CHORD=3  THEN  TONESC 

TONER'S)  =SEV  :  GOTO  3148 

3135   TONES (T0NE«3)=INTC CONE/2) -8.S) 

3148   TONES  (T0NE«41=T0NIC: TONES (TONERS) 

=  32 

3145 


IF 


ACC  =  2   THEN  TONES  C  T  ONE  «^5)  =  98 
3158   IF   ACC=3   THEN  TONES (T 0NE*5 1 = 35 
3155   TONES  (TONE-t^G)  =CHORD 
3168  GOSUB  718:RETURN 
3288   REM  PLAV  CHORDS  IN  MEMORV 
3285  GOSUB  1588:G0SUB  7ie:P0KE  752,1:? 

"■neiBa   to    stop    plavihg":rem   inverse 

VIDEO  FOR  ESC 

3218  X=PEEK(764) :IF  X=28  THEN  3238 


3211 

IF 

X  =  31 

THEN 

K=8 

3212 

IF 

X  =  38 

THEN 

K=l 

3213 

IF 

X  =  26 

THEN 

K=2 

3214 

IF 

X  =  24 

THEN 

K=3 

3215 

IF 

X  =  29 

THEN 

K=4 

3216 

IF 

X  =  27 

THEM 

K=5 

3217 

IF 

X  =  51 

THEN 

K=6 

3218 

IF 

X  =  53 

THEN 

K=7 

o 
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3219  IF  K<8  OR  K> 7  THEN  3218 

3228   T0NE=K«7:IF   T ONES ( T ON El =32   THEN  G 

OSUB   3238:G0T0  3218 

3225   FOR  X=8  TO  3:S0UND  K ,( T ONES ( T ONE « 

H) ) , 18, B : NEXT  X:GOTO  3218 

3238  FOR  H=8  TO   3:S0UND  X,8,8,8:NEHT   K 

: RETURN 

19850  REM  EXPLAIN  THE  FOLLOUING  DATA   : 

FIRST   SIX:PRINT   OUT  Xs  AND   OS  ON  TOP   : 

».e.;32  IS  SPACE, 88  IS  X,   79  IS  O 

19855  REM  THE  NEXT   SIX  ARE   DATA  LINES 

TO  READ  SHAPES  FOR  EACH  CHORD  PATTERN. 

>.e.;2888  IS  A  FRET  M/"  NO  FINGERS 

19866   REM  THE  LAST  LINES  OF   DATA  IN  A 

SERIES      (LINES   28899,28199,   etc.) 

19868   REM  ARE  SOUND  NUMBERS : TONI C , T H I R 

D, SEVENTH, MINOR   THIRD. 

28888  DATA  88,79,32,32,32,79.2088,2883 

,2888, 2888, 2888, 2888 

28881  DATA  88,79,32,32,32,79,2881,2882 
.2880,2888.2888. 2888 

28882  DATA  8  8,79,32,79,32,79,2888.2814 
,2888. 2888, 2888, 2888 

28883  DATA  88,79,32,79,32.79.2881.2815 
,2888,2888,2888,2888 

28898  REM  A  -   IN  THIS  ORDE R : 2 888 8 = MA J : 
28881=MIN:28e82=7th:28883=nin7.      All 
others  (B,Bb,   etc)   are  in  sane  order. 

28899  DATA  14  4,114,96,81,121 
28188  DATA  88,32.32.32,32,32, 
,2888, 2883, 2888, 2888 

28181  DATA  88,32.32.32.32, 
,2885,2882.2888,2888 

28182  DATA  88,32,32,32,32. 
.2888. 2814. 2888, 2888 

28183   DATA  88,32.32,32,32,32,2888,2884 
,2885, 2815, 2888, 2888 

28198  REM  B 

28199  DATA  128,182,85,72,188 

28288   DATA  88,32,32,79,32,79,2881,2815 

JUNE  1985 


32 


2888 . 2884 
2888, 2884 


32. 2888 , 2884 


o 


o 


o 


uo 

IB 

DB 

SY 

MS 

,  UU 

TH 

UB 

TR 

TM 

RV 

PS 

GV 

C  J 

BP 

un 

VI 

OH 

KR 

N  J 

QA 

UO 

RK 

UU 

OQ 

MJ 

UD 

VC 

VD 

GT 

OR 

KM 
«T 


, 2809 . 

20281 

. 2004 , 

20282 

.  2016  . 

28203 

, 2084 , 

28298 

28299 

20308 

, 2812 . 

20301 

. 2005 , 

20302 

,  2088  , 

28383 

. 2885 , 

20398 

20399 

20488 

. 2008 , 

20481 

, 2080 , 

20482 

, 2888 , 

28403 

. 2088 . 

28498 

28499 

28588 

, zais . 

28581 

.  2886  , 

20582 

.  2009  . 

20503 

, 2889 . 

20598 

28599 

28688 

,  2887 , 

20601 

.  2004  . 

20602 

. 2010, 

20603 

. 2004 . 

20S98 

20699 

20700 

, 2000. 

20701 

. 2000, 

20702 

. 2000 . 

20703 


2000. 

DATA 

2085. 

DATA 

2000  , 

DATA 

2005  . 

REn  C 

DATA 

DATA 

2808. 

DATA 

2800  . 

DATA 

2000  . 

DATA 

2008  , 

REM  D 

DATA 

DATA 

2808  . 

DATA 

2808  . 

DATA 

2888  . 

DATA 

2880  . 

REM  E 

DATA 

DATA 

2888  . 

DATA 

2880  . 

DATA 

2088  . 

DATA 

2088  . 

HEM  F 

DATA 

DATA 

2888  . 

DATA 

2oeo. 

DATA 

2000. 

DATA 

2000. 

REM  G 

DATA 

DATA 

2004  . 

DATA 

2004. 

DATA 

2000  . 

DATA 


2000. 2800 

88. 32. 32. 32. 32 , 32. 2008, 

2002 . 2000 

88.32. 32. 32. 32. 79. 2001, 

20ae. 2008 

88.32.32.32.32.32.2888. 

2815. 2888 

121 .96.81.68. 102 

88.88.79.32.32.32.2000, 

2808 . 2800 

88.88. 79. 32, 32. 32, 2008, 

20eO , 2000 

88.88.79,32.32.32,2012. 

2Oe0 . 2000 

88.88,79.32,32,32,2008. 

2808 , 2800 

108 ,85,72.61.91 
79,32,32,32.79,79,2017, 
2880 , 2000 

79.32,32.79.79.79.2000, 
2080 . 2088 

79.32.79.32.79,79,2017. 
2080 , 2000 

79,32,79,79,79,79.2800, 
2080 . 2088 

96.76.64.53,81 
88,88,32,32,32,32,2818. 
2888 , 2888 

32,32,32,32,32,32,2884. 
2088 , 2888 

88,88.32,32,32,32.2884. 
2808 . 2888 

32,32,32,32,32,32.2004, 
2088 , 2888 

91,72,68,58,76 

32.32,79,79,79,32,2000, 

2808 . 2888 

32.32.32.32.32.32.2888, 

2006 . 2080 

32.32,79.79.79.32.2088, 

2888. 2800 

32. 32. 32. 32. 32. 32. 2888, 

2089 . 2000 

162.128.108,91.136 

32, 32, 32. 32. 32. 32 , 2000, 

2017. 2006 

32.32.32.32.32.32.2000, 

2080. 2006 

88,88.32.32.32.32.2003, 

20e0. 2000 

32. 32. 32. 32, 32. 32. 2808, 


,2000. 

. 2004 . 2000 , 2009 

2800 

LK 

20798 

REM  Ab 

GN 

20799 

DATA  153.121.102, 

85. 120 

2015 

LE 

20800 
. 2003 , 

DATA  88.32.32.32. 
. 200O. 2000. 2000 

.32.32. 

2004  . 

2088 

2800 

RA 

2OS01 
. 2002 , 

DATA  88.32.32.32. 
.  2000 . 2000.  2000 

.32.32. 

2884  . 

2085 

OV 

20802 
,2014, 

DATA  88.32.32.32. 
. 2000. 2000 . 2008 

,32.32. 

2884  . 

2880 

2011 

KZ 

20803 
,2015, 

DATA  88.32,32.32, 
. 2000 . 2000 . 2008 

32.32. 

2084  . 

2805 

2017 

ML. 

20898 

REM  Bb 

RN 

28899 

DATA   136.188.91.76.114 

2011 

EU 

20900 

REM  C  FLAT   IS   REFERRED 

TO   B 

NATURAL 

2017 

FH 

20999 

REM  C  FLAT   NOTES 

ARE  8 

OJ 

21000 
. 2000 , 

DATA  88.32.32.32. 
, 2004.2000. 2003 

.32.32. 

2888. 

2888 

UN 

21001 

DATA  88.32.32.32. 

.32.32. 

2888. 

2888 

2006 

,2000, 

, 2004 . 2005 . 2002 

IE 

21002 

DATA  88.32,32.32. 

32.32. 

2088  . 

200O 

2006 

.  2000. 

. 2004 . 2000. 2014 

FU 

21003 

DATA  88.32.32.32. 

.32.32. 

2000  . 

2808 

2009 

ML 

. 2000 . 
21098 

. 2004.2005. 2015 
REM  Db 

2089 

VT 

21099 

DATA  114.91.76.64,96 

UN 

21100 
. 2004 . 

DATA  88,32,32.32. 
.2005.2015. 2009 

.32.32. 

2008  . 

2oeo 

PG 

21101 

DATA  88.88.32.32. 

.32,32, 

2000. 

2008 

2017 

,  2017 

, 2014 . 2000 . 2000 

KA 

21102 

DATA  88.88.32.32. 

.32,32, 

2884  . 

2005 

2000 

. 2011 . 

2000 . 2000 . 2000 

PL 

21183 

DATA  88.88.32.32. 

32,32, 

2015. 

2018 

2017 

MZ 

. 2817 . 
21198 

2  000,2000,2000 
REM  Eb 

2008 

U» 

21199 

DATA  102,85,68,57.91 

PS 

21288 

HEM  F   FLAT   IS   REFERRED 

TO  E 

JH 

21299 

HEM  F  FLAT   NOTES 

ARE  E 

ZL 

21300 

DATA  32.32,32.32. 

32,32, 

20O0. 

2004 

2889 

. 2017 . 

2006.2000,2000 

ML 

21301 

DATA   32,32,32.32. 

32, 32, 

2000, 

2004 

2000 

. 2088 , 

2006 . 2000 . 2888 

F  J 

21302 

DATA   32.32.32.32. 

32,32, 

2000, 

2004 

2009 

. 2817, 

2889 . 2000 . 20e0 

5  J 

21303 

DATA  32.32.32,32. 

32.32. 

2000  , 

2004 

2000 

08 

. 2000, 
21398 

2009 . 2000 , 2000 
REM  Gb 

UG 

21399 

DATA  173.136.114. 

96. 144 

1 

KB 

21400 

REM  A  SHARP   IS  B 

FLAT 

2880 

FF 

21500 

REM  B  SHARP   IS  C 

MU 

21688 

REM  C  SHARP  IS  D 

FLAT 

2000 

OF 
J  J 

21788 
21880 

HEM  0  SHARP   IS   E 
REM  E  SHARP   IS  F 

FLAT 

2008 

QZ 

21908 

REM  F  SHARP   IS  G 

FLAT 

L  J 

22000 

REM  G  SHARP   IS  A 

FLAT 

2000 

game  of  the  month 


HELICOPTER  ROUNDUP 


Article  on  page  48, 


LISTING  1 


Don't  type  the^ 
TYPO  n  Codes!' 


<:s. 


lU  10  REM  HELICOPTER  ROUNDUP 

ID  20  REM  BY   UALTER  BULAUA 

FU  30  REM   tcj   1985,   ANTIC   PUBLISHING 

UI  40  GOSUB  1358:REM  GAME   INITIALIZATION 

NJ  50  GOSUB  1160:REM  LEVEL   INITIALIZATION 

BW  60  S=STICKtOJ 

DT  70  POKE  PM8ASE  +  861-FUEL  ,  F»»126  :  FUEL  =  FUE 

L-O . 04 : FUELUSED=FUELUSED+1 
JS  80  POKE   16,112:P0KE  S3774.112:IF   FUEL< 

O   THEN  340 
GS  90  SOUND  8,15.8.18 

JUNE  1985 


LF  120 

T  J 

PL 

VD   150 


EC   100  KDIF=:H  tS-4)  :  VDIF  =  U  tS-4  J 

EF   110  KPDS=KP0S+4»KDIF : YPOS=YP0S+4»VDIF 
IF   KP0S<40   THEN  KP0S=40 
130  IF   KP0S>280   THEN  KP0S=280 
140  IF   VPOS<8   THEN  VP0S=8 

IF   VP0S>112   THEN  VP0S=112 
FQ  160  SOUND   8 . 8 . 8 . 8 : S O UND   3.8.0.0 
DZ  170  IF   KDIF=1   THEN   PMD=PMR 
EN   180   IF   KDIF=-1   THEN   PMD=PML 
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VH 
5F 


PA 
BN 


HO 

EU 
KB 
HL 
JI 
VU 
ZU 
UR 
HN 

QD 
U5 
BG 
EM 
C5 
ZQ 

AH 
AM 
KZ 
UB 
FV 
CE 
QO 
SU 
00 
NU 
FN 
KA 

DO 


CD 
KT 
DI 
AT 
JG 

OP 

L  J 

H5 
VG 
U  J 

OL 

VR 

CM 

ZT 
VT 
UN 

OT 

NV 

IN 


HU 
VM 


nj 

BO 


HV 


190 

OS.  5 

288 

5J 

218 

228 

OKE 

ADR  t 

238 

HE  T 

248 

2S8 

268 

278 

2S8 

298 

388 

318 

=  51 

328 

338 

348 

358 

368 

378 

8) 

388 

398 

488 

418 

428 

438 

448 

458 

468 

478 

488 

498 

I 
580 

o  *r- 

NEXT 

518 

:  RET 

528 

I 

538 

LOSE 

548 

E 

558 

58  .  8 

see 

578 

UTO 

588 

ISCO 

598 

CORE 

688 


A=U5RCM0VE.8,PMBA5E,PMD*IC.KP05,YP 

-ICJ 

A=USRtMOUE.3.PMBASE.PMK.KPOS,VP05. 

IC=IC+1 

IF   1C=2  THEN   IC=8:P0KE  23Z.NC0U5:P 

23e.KP0S:P0KE   231,VP0S:A=U5Rtl536, 

CPQ5SJ  J 

IF  PEEKC2a8) =NCOU5   THEN   IF    NOT   DO 

HEN  GOSUB  478:D0NE=1 

F  =  0 

IF    HOT   IKP05=176J   THEN 

IF    HOT   tVP05=188J   THEN 

IF  DONE  THEN  528 

SOUND  3.58,14.8 

IF   STRIGC8)   THEN  68 

POKE  PMBASE+861- {FUEL*e . 84J , 126 


68 
68 


FUEL=FUEL*8 . 3 : IF  FUEL>51  THEN  FUEL 

F=l:POKE  77,8:G0T0  68 

REM  END  OF  MAIN  LOOP 

REM  CRASH 

CRASH=1 

SOUND  a . 188 , 4 . 14 : SOUND  3.8.8.8 

A=USR(M0VE.8.PMBASE.PMC.KP0S.VP0S. 

FOR  1=28  TO  288  STEP  4 

IF  1=188  THEN  POKE  53256.3 

SETCOLOR  4.1.8 

FOR  N=l  TO  18:HEKT  N 

NEHT  I 

SETCOLOR  4.8.e:S0UND  8.8.8.8 

FOB   1=1   TO  4ee:NEXT  I 

POKE  53256.1 

GOTO  538 

REM  CLOSE  CORRAL  GATE 

COLOR  131:PL0T   6.11:DRAMT0  6.13 

SOUND  3. 48. 8. 15 : FOR   1=1   TO  48:NEKT 

FOR   1=158   TO  68  STEP   -18:F0R  H=I   T 
58   STEP   -S:SOUND  3 . N . 1 4 . 1 2 : NEKT  N: 

I : SOUND  3,8.8.8 
POSITION  2.21:?  f»6;"reTurn  to  pad" 
URN 
SOUND  8,a.8.8:F0R  1=1   TO  588:HEKT 

SCaRE=(  NOT   CRASH)« CNCOMSKiaaa-FUE 

D):IF   SCORE<e  THEN  SC0RE=8 

IF   SCORE>HISCaRE  THEN  HISC0RE=SC0R 

POKE  53248. B:POKE  53249. 8:P0KE  532 

:POKE  53251.8 

GRAPHICS  1*16:P0KE  7 56 , C HB ASE/256 

COLOR  131:PL0T  8.8:DRAUTO  19,8:DRA 

19,23:DRAUT0  8.23:DRAUTa  8,8 

POSITION  2.5:?  «6;"HIGH   SCORE:   " ; H 

RE 

POSITION  2.8:?  «t6;"3aMe  score:  ••;s 

POSITION     3.13:?    ne :  "DigciiDMigsBEiB    •■;f 


UELUSED 

618  IF    NOT  CRASH  THEN  POSI 

<te :  "mBDDDSMracamirisBa   •■;ncous 

628  IF   CRASH  THEN   POSITION 

iKBBBawiaHDBiQaiaBiEi" 

638  POSITION  1.28:?  n6 ; 
D  Z" 

648  POKE  S3279.8 
658  RESTORE  698 
668  READ  I:IF  I=-l  T 
:NEKT  J:G0T0  658 
678  IF   CPEEKC53279) ) 
8,8:NCOUS=HCOMS^l:Ga 
688  SOUND  3.I.ia.8:F 
J:GOTO  668 

698  DATA  68.68.8.68.68.47.4 
7. 8. 47. 47. 47. 8. 8. 8. 68. 68. a. 
.  45. 8, 45. 45. 8 

7ee  DATA  45,8.53,53.8.68,68 
718  DATA  68,68,47.47,47,8,4 
7, 53, 53. 68. 6a. 8. 45, 45. 45. 47 
68. 68, 68. 8. 8. 8.-1 
728  REM  DRAM  PLAVFIELD 
738  GRAPHICS  1«16:P0KE  559. 
CHBASE/'ZSe 

748  SETCOLOR  8 . 1 , 4 : SETCOLOR 
758  COLOR  131:F0R  1=8  TO  17 


TION  2, 14 : ? 
2,16:?  M6;  •■ 
RESS     V     BOG3Q] 


HEN  FOR  J=l   TO  288 
SOUND  3, a, 
TO  12:HEKT 


=6  THEH 
TO  58 
OR  J  =  l 


7,47,8,47,4 
68, 68, 45, 45 

.  68,  a 

7,47,8,47.4 

.0.45.45.8. 


:POKE  756, 


3,2,8 
: PLOT  6. I:D 


JE 
HL 

AX 


TV 
VR 
MP 


JA 
FN 
BF 

vn 

HG 


GO 
GC 
00 
UA 

RU 
RU 
KM 

OZ 
ZT 
AK 
ZT 
ZO 

EU 
ID 

KU 

KO 
JU 
GV 


TM 
TU 
UT 
ZV 
ZA 
UT 
AQ 
00 
AL 

FS 
VM 
HR 

QR 
VU 
DF 

ZE 

UE 

JR 
NK 

DF 
UM 
VU 
HK 
DJ 

CR 
AR 
VB 


RftUTO  13,I:HEMT  I 

768  PLOT  8,8:DRAUT0  18.8:DRAUT0  18,23: 

DRAMTO  8,23:DRAUT0  8,8 

778  POSITION  19,28:?  »»6 ;  "H"  :  POSIT  lOH  1 

9,21:?  »t6;  "ID":  POSITION  19.22:?  »t6  ;  "M"  : 

POSITION  19,23:?  tt6:"[|": 

788  POSITION  15,28:?  <>6  :  "DOO"  :  POSITION 

15,21:?  »6;"auU"  :POSITIOH  15,22:?  >>6 : 
"OQO" 

798  REM  PLOT  TREES 
888  RESTORE  828 

818  FOR  1=1  TO  5:READ  C:READ  R:POSITIO 
N  CR:?  t«6;  "«":  POSITION  C,R*1:?  «»6;"K" 
:NEKT  I 

828  DATA  8,3,3,5,17.14.4.4,4.18 
S38  REM  PLACE  COUS 
048  COLOR  89 
858  FOR  1=1  TO  HCOUS 

868  COL  =  INT  C17<*RNDC81  l'i'l:ROM=INT  C17<>RN 
D  C8)  I *± 

878  LOCATE  COL  ,  ROU,  KV  AL  :  IF  KVAL032  TH 
EN  GOTO  868 

888  POKE  ADRCCP0S$)«CI-1)w2,C0L:P0KE  A 
DRCCP0SS1*CI-1)W2«1, ROM: PLOT  COL, ROM 
898  NEKT  I 

988  REM  PLACE  HELICOPTER 
918  XP0S=176 : VP0S=ia8:PM0=PHL 
928  A=USRCMOVE,e,PMBASE,PMD,XPOS,VPOS, 
51 

938  POKE  53249, 288 : POKE  53258,288 
948  REM  CLEAR  CENTER  OF  CORRAL 
958  COLOR  32:F0R  1=9  TO  16:PL0T  7,I:OR 
AUTO  12.I:HEXT  I 
968  PLOT  5.11:DRAUTa  6,13 
978  RETURH 

988  REM  TITLE  PAGE  DISPLAY 
998  POKE  186, PEEKC748) : POKE  53279,8 
1888  POKE  53248, 8:P0KE  53249, 8:P0KE  S3 
25e,a:P0KE  53251.8 

1818  GRAPHICS  2  «^16  :  SE  TCOLOR  1,1,4 
1828  POSITION  S.3:?  >t6  ;  "HELICOPTER"  :  PO 
SITION  6,5:?  <>6  :  "ROUNDUP" 

1838  COLOR  3:PL0T  a.e:DRAUTO  19.8:DRAM 
TO  19.11:DRAMT0  8,11:DRAMT0  8.8 
1848  POSITION  4.9:?  Ill    I  II  II  II  III1IIHI  Hill 
1858  RESTORE  698 

1868  READ  I:IF  I=-l  THEH  FOR  J=l  TO  28 
8:NEKT  J:GOTO  1858 

1878  IF  PEEKt53279J =6  THEN  SOUND  3.8,8 
. 8 : RETURN 
1888  SOUND  3.I.18.8:F0R  J=1  TO  12:NEKT 

J:G0T0  1868 
1898   REM  PLEAE  UAIT  OISPLAV 
1188  GRAPHICS  2+16 

1118   POSITION  7,4:?  >t6:"PLEASE" 
1128   POSITION  8.7:?  «t6;"UAIT" 
1138  POSITION  5.18:?  t<6;"38  SECONDS" 
1148  FOR  1=1   TO   388:NEKT  I 
1158  RETURH 

1168  REM  LEVEL  INITIALIZATION 
1178   POKE  53248. 8:P0KE  53249, 8:P0KE  S3 
25a,8:P0KE  53251,8 

1188  GRAPHICS  2+16 : SETCOLOR  1,1,4 
1198  IC=8:FUEL=S1 
1288   COLOR  3:PLaT  8.8:DRAUTO  19,8:DRAU 


o 


o 


TO  19 

1218 

5ITIO 

1228 

a]D" 

1238 

";nco 

1248 

1258 

KE  I 

1268 

1278 

♦1  :  IF 

12BB 

1298 

138a 

1318 

1328 

FUELU 

1338 

1348 

1358 


11:DRAUT0     8,11:DRAUT0     8,8 
POSITION     5.2:?     tt6 ; "HE LICOPTER" : PO 
H     6,4:?     n6:"R0UHDUP" 
POSITIOH     2,7:?     U6 ;  "BSOUaiamiCDCIICOCiaiB 
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POSITION     2.B:?     >>6  ;  "aBCBMDBJHCBSIBtaB 

US 

POSITION     4,18:?     n6 ;  "OtaSBBMBDEllIlD" 

FOR  I=PMBASE+818  TO  PMB ASE+861 : PO 

126:NEKT  I 

POKE  53279,8 

IF  PEEK(53279)=5  THEN  NCOUS=NCOUS 

NC0US>38  THEH  NC0US=1 
POSITION  16,8:?  tt6:NCaUS,-"  " 
FOR  1=1  TO  18:NEKT  I 
IF  PEEKC53279) <>6  THEH  1268 
SCORE=8 

GOSUB  72a:POKE  623,1:P0KE  559,46: 
SED=8:CRASH=8:D0HE=8 
POKE  53256, l:POKE  53259.1 
RETURH 
REM  IHITIALIZATIOH 

JUNE  1985 


o 


o 


oz 

HC 
HO 

5U 
VQ 

an 

DA 
EE 

QB 

HV 
ZE 
JE 
SK 
OU 


vn 

KH 


OT 
UF 
Bfl 


RQ 
NA 
UV 


o 


o 


LG 
NU 

no 
vo 

HU 
RU 

NT 
AR 
HU 

BO 

MG 
FA 
KM 
CS 
KO 
NA 

RJ 
U5 
NU 
GC 
UU 
AA 
OF 
NK 
ZH 
DB 
MZ 

VP 

RR 


.  PLS  C5>  ,  PC 


:  PM 


1368  GOSUB  988:G05UB  1890 

1378  HI5C0RE=8 : NC0U5=1 

1388  Din  PnnOUES (1881 . PRS C5] 

scB) .cpossteei .chheuscs) 

1398  Din  PKS  C5) 
1488  Din  HCllJ.VfCll} 

1418  nOUE^ADR  (PnnOUES)  :  PnR:=ADR  (PRS) 
l.  =  ADRCPLS)  :  PnC  =  ADR  CPCS) 
1428  Pnil  =  ADR  CPKSl 

H38  RESTORE   mOtFOR   1  =  5   TO  15:READ  N 
:  H  tI-4  J  =N  :  READ  M  :  U  CI  -  ■*  J  =  M  :  M  EH  T   I 
1448  DATA  1.1,1,-1,1,8,8,8,-1.1,-1,-1. 
-1.8.8.8.8.1.8,-1.8.8 
1458  GRAPHICS  l*16:POKE   559.8 
1468  PMBASE=INTttPEEKtl063-6J/4J"4 
1478  CHBASE= CPnBASE-2) «Z56 
1488  PMBASE=PMBA5E»256 

1498  PRS(1J=CHRSC31J :PRSt2)=CHRStl32) : 
PRSt3J=CHHStZ85) :PHSC41=CHRStl27J :PHSt 
5J  =CHHS  tl4 J 

1588  PLS(lJ=CHRSt248J :PLS{2J=CHRSt33) : 
PLS(3J=CHRSC1151  :PLSC4J=CHHSt2S4J  :PLSt 
5J  =CHRS  tll2J 

1518  PCSClJ=CHRSt98J  :PCSt2J=CHRSt82J  :P 
CSt3J=CHRSC34J :PCS(4J=CHRStll6J :PCS(5J 
=  CHRS(92J  : PCS  C6J  =CHRS  194  J 

1528  PCS t7J =CHRS tl62J : PC S C 8 } =CHR S ( 16 ) 
1538  PKS tl) =CHRS 18) : PKS t 2 J = CHR S CB J :PKS 
C3J=CHRStl29) :PKSt4J=CHRSC01 :P«S(5J=CH 
RS  C8} 

1548  REM  ERASE  P/n  AHD   CHR  MEHORV 
1558  RH=PEEK t89J : RL=PEEK Caaj 
1568   I=PEEK £186) : POKE   186.I-6:P0KE  89. 
PEEK  (186)  -8  :  POKE  88.8:?  •••f:POKE   89, RH 
:POKE  88,RL:P0KE  186,1 
1578  POKE  559.8 
1588  REn  P/n  MOVE  ROUTINE 

1598'rESTORE  1688:F0R   1=1   TO  iee:READ 
N : PnnOUES (I) =CHRS (N) : NEKT   I 

1688  DATA  2  16,184,184,184,133,213,184, 
24,185,2,133,286.184,133.285.184.133.2 
84.184,133,283.184,184,133,288 
1618  DATA  184,184.133.289.184.104.24.1 
81. 289. 133, 287, 166. 213. 248. 16. 165, 285. 
24,185,128,133,285.165,206,185 
1628  DATA  8,133,286.282.288,240,168,8, 
289,144,19,196,287,176,15,13 

283 , 164 

285,232,169.8.248.4. 
128. 288 , 224 , 166 , 
96 


162 , 8 , 196 
2,212,138 
1638  DATA 
169 


168 . 177 , 
212.145, 
8, 145. 285, 288, 192. 
208  , 


213,165,288,157,8. 

1648  REM  CHAR  MOVE   ROUTINE 

1658  RESTORE   1968:1=8 

1668  READ  N:IF   N=-l   THEN   1688 

1678  POKE   1536*1 , N : 1=1*1 : GOTO   1660 

1688  CHHEUS="KVOUnKYZ" 

1698  FOR   1=8   TO  511:P0KE  C HB AS E ♦ I , PEE K 

(57344*1) : HEKT   I 

1700  RESTORE   1748 

1718  FOR   1=1   TO  8 

1720  CHADD  =  CHBASE*  (ASC  (CHNEUS  CI ,  I)  )  -32 

)  »8 

1738  FOR 


7:READ   H:POKE  CHADD*J, 


J  =  8   TO 
N : HEKT   J : HEKT   I 
1748  REM  TREE   TRUHK  -K 
1758   DATA  2  4.24,24,24,24. 
1768  REM  TREE  LEAUES-U 
1770  DATA  64 , 49 . 87 , 221 , 84 
1788  REM  LANDIHG  PAD-O 
1798   DATA  2  55-255,255,255,255,255,255, 

2S5 
1888 


24,24,24 


58 , 128 , 28 


I,  231  .  231  .  231 


REn  REFUEL  ZONE-U 
1818  DATA  231. 231. 231 . C 
1828  REn  FENCE  -  <s 

1838  DATA  255.68.68.68,255.68.68.68 
1848  REn  LEFT  COM  -  K 

1850  DATA  64.192.255.63.63.17.17.17 
1868  REn  CENTER  COU  -  V 
1878  DATA  36.24.24.68.68.68.36.36 
1888  REn  RIGHT  COU  -  Z 

1898  DATA  2.3.255.252.252,136.136.136 
1988  POKE  54279. INT (PnBASE/2S6) : POKE  5 
3277. 3 

1918  POKE   7e4.8:P0KE  785.14:P0KE   706.1 
B6:P0KE  707.252 

1920  FOR  I=PMBASE*648  TO  P nB ASE * 895 : PO 
KE  1.8: NEKT  I 


BD 
AD 
ER 

KG 
UU 


50 
HU 
OL 


1938  FOR  I  =  PMBASE*682  TO  PMB ASE *  7 33 : PO 

KE  I.129:NEKT   I:POKE  PMB ASE ♦ 734  -  255 : PO 

KE  PMBASE*681. 255 

1948  RETURH 

1958  REM  COU  nOUE   ROUTIHE 

1960  DATA   104.184.133,284,184,133,283, 

169 

1970  DATA   8,133.288.165.232,288.1.96 

1988  DATA   198,232,165,232,18.168.177.2 

03 

1998  DATA   133.219.288.177.283.133,228, 

32 

2000  DATA   145.6,165.230.133.287,165.21 

9 

2010  DATA   10.10.10.24.185.48.133,286 

2020  DATA   32.193.6.138.133.233.24.181 

2030  DATA  219.133.221.32,145,6,165,231 


VC  2040  DATA  133,287,165,228,18,18,24,185 


IC 
lA 


20S8  DATA  16,133.206.32,193.6.138.24 
2068  DATA   181.228.133.222.178.32,165,6 


TK  2870  DATA  164,221,177,285,281,8,248.18 

DK  2880  DATA  165.228.166.219.32.238.6.76 

ES  2090  DATA  11.6.169.57.24.181.233.145 

VI  2100  DATA  205,166,228,32,165,6,164,219 

TD  2110  DATA  16  9,8,145,205-165,232,10,168 

AU  2120  DATA  165,221,145,203,165,222.200. 

145 

UF  2130  DATA  2  8  3.166.221.32.238.6.76.11 

UU  2148  DATA  6.173.18.210.281.235.176.3 

HC  2158  DATA  162.8.96.281.245.176.3.162 

CV  2168  DATA  1.96,162.255.96.165.88.133 

UU  2178  DATA  2  85,165.89.133,206,138.208.1 

IH   2180  DATA   9  6.155.285.216,24,185,20.133 

AO   2190  DATA   285.144.2.238.286.202.208.24 

1 

Hn  2zee  data  96, 173. le. zie. 41, 3i. 133. zos 

BV  2218  data  165.287.24.197.286.176,13-16 

5 

HB  2220  DATA  286,56,229,287,24,197.205.17 

6 

CK  2238  DATA  2.162.1,96,229,206.24.197 

ZM  2248  DATA  285,176,2.162.255.96.24.201 

JR  2258  DATA  8.176,1,96,281.17,144-1 

KL   2268  DATA  9  6-138,24,201,7,176,1.96 

LU   2278  DATA  281.13.144.1.95.238.288-96 

FH   2288  DATA  -1 


End  Program  Typing  Agony  Forever! 
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TURTLE  PIANO 


LISTING  1 


TO    SIGN     :LEN 

TELL     Ce    1]     PU 

TELL  e  BK  6  TELL  1  FD  14 

TELL  [8  13  LT  98  FD  : LEM  /  2  -  18 

END 

TO  STAFF  :LEN  : HIT 

CS  PU  LT  98  FD  : LEN  /  2  RT  98  FD  :HIT 

*»  5  /  2  PD 
REPEAT  4  [SETH  98  FD  : LEN  BK  : LEN  RT 
98  FD  :HIT3 
RT  188 

REPEAT  2  tFD  :HIT  »  4  RT  98  FD  : LEN  R 
T  981 
SIGN  :LEH 
END 

TO  MEASURE 

CS 

TELL  2  STAFF  258  18 

END 

TO  DIRECTIONS 

CT 

PR  CIF  YOU  WANT  THE  COMPUTER  TO  PLAVa 

PR  [ALONG  UITH  YOU.  PRESS  'y*  NOU-l 

HAKE  "CHOI  RC 

IF  :CHOI  =  "Y  tPR  ETHE  COMPUTER  MILL 

PLAY  ALONG.]]   CPR  [THE  COMPUTER  UILL 

NOT  PLAY.]] 

PR  [Press  a  key  to  30  on . ] 

PR  RC  CLEANUP 

END 

TO  SETUP 

SETBG  8 

TELL  2  SETPN  8  SETPC  8  182  SETC  IS 

TELL  [8  1]  SETC  6 

TELL  [8  1  21  CS 

TELL  2  MEASURE 

TELL  2  PU  SETPOS  [8  -281  SETC  15 

PUTSH  1  :N0AT 

PUTSH  2  :STAFFLO 

PUTSH  3  :STAFFHI 

TELL  8  SETSH  2  TELL  1  SETSH  3 

TELL  2  SETSH  1 

END 

TO  BEEP  :N0TE 

SETENV  8  3 

TOOT  8  :N0TE  18  28 

END 

TO  PLAY  :ST 

IF  :ST  =  "A  [TYPE  [\  c]   SETY  -28  OP  2 

68  .7] 

IF     :ST     =    "S     [TYPE     [\    d]     SETY    -15    OP    2 

93-33 

IF  :ST  =  "O  [TYPE  [\  e]  5ETY  -18  OP  3 

383 

IF   :ST  =  "F   [TYPE  [\  f3   SETY  -5  OP  34 

7.73 

IF   :ST  =  "G  [TYPE  [S  33  SETY  8  OP  391 

-13 

IF  :ST  =  "H  [TYPE  [\  a]  SETY  5  OP  448 

3 

IF  :ST  =  "J   [TYPE   [\  b3   SETY  18  OP  49 

53 


Article  on  page  10. 


IF  :ST  =  "K  [TYPE  [\  C3  SETY  15  OP  52 

1-53 

IF  :ST  =  "L  [TYPE  [\  D3  SETY  28  OP  58 

6.63 

IF  :ST  =  ■■;   [TYPE  [\  E3  SETY  25  OP  66 

83 

IF     :ST    =    ••+     [TYPE     [\    F3     SETY    38    OP    69 

5.43 

IF  :ST  =  "»  [TYPE  [\  G3   SETY  35  OP  78 

2.21 

IF  :ST  =  CHAR  32  [TYPE  [\  3  SETY  8  OP 

588883 
OP  58888 
END 

TO  BEEP2  :N0TE 

SETENV  8  3 

TOOT  8  :N0TE  18  28 

TOOT  1  :N0TE  /  2  8  28 

END 

TO  REMEM  :ST 

MAKE  "LINE  LPUT  : ST  : LINE 

END 

TO  REPLAY  :LINE 

IF  EMPTYP  :LINE  [5TOP3 

IF  :CHOI  =  "Y   [BEEP2  PLAY  FIRST   : LINE 

3   [BEEP  PLAY  FIRST  :LINE] 

REPLAY  BF  : LINE 

END 

TO  START 

SETUP 

BEEP2  PLAY  "A 

DIRECTIONS 

GET. NOTE 

END 

TO  CLEANUP 

CT 

PR  [C\=CLEANUP, Y\=START  OVER , R\=REPLA 

Y3 

MAKE  "LINE  [3 

END 

TO  GET. NOTE 

.DEPOSIT  731  255 

MAKE  "ST  RC 

IF   :ST  =  "C   [CLEANUP  GET .NOTE] 

IF  :ST  =  "Y  [START] 

IF   :ST  =  "R   [REPLAY  : LINE  GET. NOTE] 

REMEM  :ST 

IF  :CHOI  =  "Y  [BEEP2  PLAY   : ST]   [BEEP 

PLAY  :ST3 

GET. NOTE 

END 

MAKE  "ST  "R 

MAKE  "STAFFHI  [8  12  18  9  9  9  9  9  9  9 

9  9  9  18  12  83 

MAKE  "STAFFLO  [8  24  48  72  136  136  136 

138  141  141  139  137  137  73  42  283 
MAKE  "NOAT   [8  7  15  12  8  8  8  8  8  8  184 

248  248  248  96  83 
MAKE  "CHOI  "Y 

MAKE     "LINE      [5DF\        FGH\       HJK\ 
K    K    K3 
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/-N     I  assembly  language  | 

TURBO  TYPO 


II 


Article  on  pase  43. 


LISTING  1 


UB  32aea  reh  typo  ii  bv  ahdv  barton 

CU  32015  HEM  TURBO  TVPO  RE« -   BV  J.D.   MCLft 

UGHLIN 

UP  32016  REM  tcl.1985.   AHTXC  PUBLISHING 

GI  32025  DIM  BSC751 

zs  32026  BS  =  "ah5it3iihaiihaBi.haaa»™Q>'«a>'Muy«» 
osasKsasiasvzi-^wariaymayE  ■cau/'Ba/'ia-'  tBU/OGxaaoiocaia 
Btac:*" 

PH  32150  ANS  =  USR  CADR  CBS)  .  ADR  CLIMES]  .  LEN  tl. 
INESJl :AN5=PEEKC1789J ♦256-PEEK C1790 J ♦B 
5536«tPEEKC1791J 


LISTING  2 


su 

CH 
FU 
LS 
RT 

IE 
GZ 
HG 
GG 
GL 


o 


lO 
O 

20 
30 
40 
50 
;  C 
60 
70 
BB 
90 
10 
2  : 
11 
C 
12 
,  1 
.  2 
13 
77 
1  , 
1-* 
.  6 
,  2 


REM  CREATE  LINE  32026  FOR  TURBO  TVP 


REM  B 
REH  C 
GRAPH 
RESTO 
HRS  C34 
POKE 
FOR  I 

^    CHR 

HEKT 
0  P05I 
POKE  8 
0  POKE 
REATED 
0  DATA 
04, 133 
53.6.1 
0  DATA 
, 204 . 1 
253. 6. 
0  DATA 

198.  2 
08. 215 


V  J.D. 
c)   1985 
ICS  O 
RE   : POS 
1  : 

766.  1 
=  1  TO  7 
S  CAl  : 
I : POKE 
TIOM  2. 
42.13:5 

842. 12 
■■  :  END 

169. 1 . 
. 204. 10 
41, 254. 

255. 6, 
33. 206. 
144. 11 . 

254. 6, 
08. 208. 
. 96. 34 


MCLAUGHLIN 

ANTIC  PUBLISHING 


ITION  2,6:?  "32026  BS=' 


1 : READ  A 

766.  0 

11:?  "COHT" : POSITION  2. 

TOP 

:?  "LINE  32026  HAS  BEEN 

133, 203, 184. 104, 133. 205 

4, 104, 133, 207, 169, 0, 141 

6,  141 

160, 0, 165, 283, 133. 208.1 

24. 165. 206, 109, 253. 6. 14 

238 

173. 254. 6, 208, 3, 238,255 

238,  200, 230, 203.  198. 287 


ezea  loopa  lda  scb 

8210  STft  SD0 

0220  LDA  CSCCJ.Y 
on  LINES 

0230  STO  SCE 
0248  LOOPB  CLC 

5'  CHAR-  BY  "C 

0250  LDA  SCE 

0260  ADC  BASXCl 

0278  STA  BASICl 

0280  BCC  ONU 

0290  IMC  BASIC2 

0300  LDA  BASIC2 

0310  BNE  OMH 

0320  INC  BASIC3 

0330  ONM  DEC  SDB 

8348  BNE  LOOPB 

8358  XNV 

8360  XHC  SCB 

0370  DEC  SCF 

CHAR.S  REMAINING 

0380        BNE  LOOPA 
SSED? 
0390        HTS 


;  get  value  of  'c 
;u5e  as  a  counter 
;get  character  fr 


; LOOPB  'MULTIPLIE 


:SAME  AS  C=C+1 

: REDUCE  NUMBER  OF 


:ALL  CHARS.  PROCE 
;VES,THEN  RETURN 


LISTING  3 


05  ;     TURBO    TVPO 

06  ;  BY  J.D.  MCLAUGHLIN 

87  ;   (CJ  1985,  ANTIC  PUBLISHING 

18  '<*=        S8688 

28  BASICl  =   1789  ; FIRST 

30  BASIC2  =   1790  : SECOND  AND 

40  BASIC3  =   1791  ; THIRD  BYTES  OF  A 

NS  FROM  BASIC  PROGRAM 

50  LDA  t*l 

68  STA  SCB  ; ESTABLISH  COUNTE 

R  CTYPOII'S  VARIABLE  C) 

78  PLA  ;  DISCARD  t«OF  BYTE 

S  PASSED 


'Computet 
outmet 

from  New  Horizons 


O 


88 

98 

INESI 

8188 

8118 

INESI 

0120 

SES  A  0 

0130 

0140 

INES) 

015O 

0160 

0170 

0180 

019O 
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PLA 
STA  5CD 

PLA 
STA  5CC 


:HI  BYTE  OF  ADRCL 


:L0  BYTE  OF  ADRCL 


PLA  ; BASIC  ALUAYS  PAS 

HERE  AS  HI  BYTE  OF  LEN CLINESl 
PLA 

STA  SCF  ;lo  byte  of  LENCL 


Tired  of  always  searching  for  the  right  recipe? 

Are  the  pages  of  your  recipe  books  covered  with  your  recipe  ingredients? 

Fed  up  at  guessing  amounts  when  a  recipe  serves  five  but  you  want  it  for  two? 

If  so  then  you  need  The  Computer  Gourmet. 

With  The  Computer  Gourmet  you  can; 

•  Easily  save  your  favorite  recipes  (even  give  them  a  rating!) 

•  Find  any  recipe  you  need  within  seconds 

•  Adjust  for  a  different  serving  size  automatically 

•  Print  the  whole  recipe  or  just  the  list  of  ingredients 
Best  of  all,  The  Computer  Gourmet  comes  with  a  disk  full  of  recipes! 

(With  everything  from  main  courses  to  desserts). 

Available  on  disk  for  Atari "  computers  (requires  48K),  To  order,  send  S29.95  plus 
52.00  tor  postage  (Texas  residents  please  add  5  1/8%  sales  lax)  10 

New  Horizons  Software  •  P.O.  Box  180253  •  Austin,  Texas  78718 
Or,  for  more  information,  call  (512)  445-1767 


LDA  *>0 

STA  BASICl 

STA  BASIC2 

STA  BASIC3 

LDY  no 


;ZERO  ALL 
; BYTES  OF 
;  ANS 
:SET  COUNTER 


New  Horizons 

Expanding  Your  Life 

Please  write  to  us  lor  information  on  all  of  our  products  for  Atari  computers. 
Dealer  inquiries  invited.  Atari  is  a  trademark  o(  Atari,  Corp. 
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LISTING  2 
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continued  from  page  68 


Don't  type  the 
TYPO  II  Codes' 


;<:^ 


XU  18  REM  GRAPHICS  UTILITV  PnCKHGE  DEMO 
HG  29     REM  BV  DflREK  niHOCKA 
FU  Sa  REM  CC)   1985.   ANTIC  PUBLISHING 
JP  40  START=16384 

UE  42  IF  PEEKCSTAHT) =76  THEN  SB 
ZA  44  PaKE  718.66:?  "n*      G . U . P -  Machine 
Lansuase  routines    arc     not  in  pieMory* 

■• 
FL  46  ?  :?  "      This  deno  cannot:  RUN  with 

out  theserout ines .    see  article  for  ad 

ditional  i  n  f  omat  i  on  .  *■  :  END 
PD  58  RAND0M=PEEKC5TnRT*31 +256-PEEK (START 

+  43 
OU  68  BOK=PEEKtSTAHT+S> *256»PEEK(START+6J 

BE  78  LET  DR AMTO=PEEK t ST AH T + 7 J ♦256«PEEK I S 

TftHT*8J 
MJ  88  LINE=PEEKtSTART*9J +2S6»PEEKCSTART*1 

81 
SZ  98  CIRCLE=PEEK tSTABT*lll ♦256«tPEEK tSTAR 

T*12J 
IJ  188  LET  COLOR=PEEK tSTART+13) ♦2S6»PEEKt 

START*14) 
TD  lie  LET  6HAPHIC5=PEEK(STnRT*15J *256»PE 

EK(START+16} 
IN  128  C128=PEEKtSTART*17J ♦2S6»PEEK tSTAHT 

♦  18J 

RR  138  CIRF=PEEKtSTART+19J +256»PEEKC5TART 

♦  281 

KF  148  TEKT  =  PEEKtSTART  +  211  ♦256»PEEK tSTART 

♦  22J 

ZG  ISe  LET  PL0T=PEEKCSTART*23J ♦256«PEEKCS 

TAHT+24) 
OE  168  LET  SET=PEEKtSTART+2SJ +256»PEEK tST 

ART+26} 

PG  178  LET  SETC0L0R-PEEK(START'i'27]  *25S»PC 

EK(START*281 
TC  168  H0R0FFSET=2aS 
UN  198  REM  BEGIN  MAIN  PROGRAM 
UJ  288  GOSUB  918 
KT  218  POKE  CIRF.l 

GE  228  A=USR tGRAPHICS. 151 :POKE  752.255 
SI  238  ?  "HThe  sane  routine  in  CR . 15  with 

G.U.P." 
OT  248  ?  "using  nu 1 t i p 1 e  paraneters  for  s 

peed.":A=USRCSET.85.85.8S.e5] 
BI  258  FOR  T=8  TO  79  STEP  3 : T2=T^2 : U=159- 

T : U2=1S9-T2 
LN  268  A=USR CLINE. T. T2. U. U2. T. U2. U. T2. T. T 

2) 
SM  278  NEKT  T : POKE  752.255 
FU  288  7  "KTwice  the  pixels  in  half  the  t 

m  He  ..." 
VZ  298  ?  "How  about  sone  MUlti-color  tfisp 

laus?" 
DO  388  A=USRCSET. 164. 29. 134, 1651 : GOSUB  11 

68:F0R  T=79  TO  8  STEP  -1 
AC  318  A=USR CLINE, T, T. T. 159-Tl 
FG  328  A=USR tLINE, 159-T. 159-T, 159-T, TJ 
KF  338  NEHT  T 
RE  348  GOSUB  1188 

GL  358  A=USRCGRAPHICS. 151 :POKE  752.255 
VE  368  ?  "nAnd  now.  the  super  Fast  CIRCLE 

DJ  378  ?  "38  CIRCLES  DRAUN  IN  4.8  SECONDS 

(6  CIRCLES  PER  SECOND!!" 

KK  380  FOR  V=l  TO  38 

FR  398  A=USR CRANDOMl 

QH   488  A=USR CCIRCLE. ea+V . 6a+V. 681 

MA  418  NEHT  V 

RB  428  GOSUB  1188 

PS  438  A=USR (GRAPHICS. 151 

VT    448  POKE  752.255:?  "More  fast  circles. 

DR  458  FOR  R=88  TO  8  STEP  -4 

VZ  468  H=PEEK(28] : A=USR CSET. K. K. K. HI : A=US 

R(CIRCLE.79.79.R1 

ES  478  A  =  USR  (SET. a, 8, 8, 81  : A^USRCCIRCLE. 79 

. 79, R-21 

JU  488  NEKT  R 

jRP  498  GOSUB  1188 

'GD  see  A=USR (GRAPHICS, 151 : POKE  752,255 

VI  518  ?  "«  And  now,  sone  nore  LIME  drawl 

ng  ,  .  .  " 

KU  520  FOR  T=8  TO  78 

UE  538  GOSUB  1168 

KK  548  A=USR (LINE, T, T, T+79. T. T*79, T+79. T. 


LV 
KO 

KP 
RO 
ON 


TZ 
XI 
DV 
FF 
GS 
HB 
HR 
KO 
GS 

JE 
UK 

HG 
RE 
DO 
DN 


T*79. T. Tl 

558  A=USR (SET . 8. 8. a.ei : T=T*1 

568  A=USR(LIKE.T.T,T*79,T,T*79,T*79,T. 

T*79 , T . Tl 

570  NEXT  T 

588  GOSUB  Ilea 

598  n=USR (GRAPHICS, 151 : POKE  752,255:7 

"nof  course,  circles  can  be  left  enpty 

Gee  GOSUB  1160 

618  POKE  CIRF, 8 

62B  FOR  T=e  TO  58  STEP  2 

638  A=USR (SET . 178, 170, 178, 1781 

648  A=USR (CIRCLE, T+45, 79, 681 

650  A=USR (SET, e, 8, 8. 81 

660  A=USR (CIRCLE, T+46. 79, 681 

670  NEHT  T 

680  GOSUB  1108 : A=USR (GRAPHICS, 151 : POKE 

752 . 255 

690  ?  "K  THE  BOX  ..." 


c 


XK 
KZ 


MF 
UD 


KG 
DO 

HR 

JK 

HO 

BE 
CA 
RR 
VD 


as 

BV 


lU 
DO 


RI 

FC 

KT 
RS 
ZH 
HE 

MH 
WO 
NC 
EG 

HL 
JM 
JM 
XU 
BA 
EH 
UJ 

FZ 
TN 
GF 
AO 
HH 


780  FOR  T  =  e  TO  70  :  U  =  3<*T  :  A  =USR  (SET  .  U  ,  U  . 

U.  U) 

710  A=USH (BOX, T , T, 1S9-T, 159-Tl : NEXT  T 

720  GOSUB  iiee 

730  GRAPHICS  S:POKE  752,255 

740  ?  "KHow  about  nixed  text  and  graph 

i  c  5  7  ?  ?" 

750  FOR  T=e  TO  3:P0KE  COLOR+T , 255 : NEKT 
T 

760   FOR   T=l   TO   50 

770  A=U5R (CIRCLE, PEEK (537701/2+16, PEEK 

(537701  ,'2  +  16,9  +  PEEK  (537701 /'481 

788  POKE  CIRF , PEEK(537701/256 

790  A=USR (TEXT , 34, 8. ADR ("This  conplete 

s  the  deno"1.231 

808  A  =  USR  (TEXT .  38. 24. ADR ("of  the  GRAPH 

ICS  UTILITIE5"1 . 251 

818  NEXT  T 

828  POKE  TVPE. 8 : A=USR (TEXT. 32. 8. ADR (" 

"1 . 331 
838  A=USR (TEXT. 28. 32. ADR (" 

"1  .  261 
848  POKE  TVPE. 255 : A=USR (TEXT. 34, 8, ADR C 
■■This  conpletes  the  deno*«  1,231 
858  A=USR (TEXT, 38, 24, ADR ("Of  the  GRAPH 
ICS  UTILITlES'^l  ,  251 
868  A=USR(C128, 128, 51 
878  A=USR(C128, 128, 61 

888  GOSUB  iiaa 

898  GRAPHICS  IB  :  POKE  712,48:7  nG  :  7  tt6  : 
■■THANKS  FOR  UATCHIMG":?  M6  :  7  »«6  :  7  M6;" 

the" 
900  7  SS6 ; "   graphics  utility  pa 

Ckage^' :  X  =  USR(C128,  488,  51  :  END 
918  GOSUB  1888 

928  A=USR(GRAPHICS, 151 : POKE  87,7:REn  M 
AKE  BASIC  THINK  IT'S  IN  GR . IS . 
938  COLOR  l:POKE  752.255 

948  7  ■■Linited  by  the  O.S..  BASIC  can 
only     use  168x88  resolution  in  GRAPHI 
CS  15.  It  is  also  slow.'^ 

958  FOR  T=8  TO  79  STEP  3 : T 2=T/4 : U=159- 
T :U2=79-T2 

968  PLOT  T.T2:DRAUT0  U.U2:DRAMT0  T,U2: 
DRAMTO  U.T2:DRAUT0  T.T2 
978  NEXT  T 
988  GOSUB  1188 
998  RETURN 

laae  graphics  is:?  st6  :  ?  isGi"    IN  THE  B 
EGIHHING-^ 

lala  7  n6  :  7  t>6:"       THE  ATARI  HAD  ■• 
1828  7  «>6  :  7  <>6  ;  "     PLOT  AND  DRAUTO  ■■ 
1838  FOR  T=l  TO  5ee:NEHT  T 

1848  GRAPHICS  1:7  n6  :  7  t>6;"N0U,   THANKS 
TO  G.U.P" 


c 


THE  ATARI  ALSO  HAS- 
BOX.  CIRCLE.  AND" 
16  GRAPHICS  MODES" 


1858  7  n6 : 7  n6 : 

1868  7  s<6  :  7  <t6  : 

187a  7  H6  :  7  fB-." 

1088  GOSUB  1188 

ia9a  RETURN 

liaa  POKE  7S2.255 

Ilia  7    ■■■«♦ 


112*  POKE     764.255 

use  IF  PEEK(764]  :::255  THEN  1138 

114a  POKE  764.255 

1158  RETURN 

116a  A=USR (RANDOMl : RETURN 
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^  product  reviews  ^ 


COLORTONEi 
KEYBOARD 

(Waveform  Corp.) 
Protecto  Enterprizes 
Box  550 

Barrington,  II  60010 
(312)  382-5244 

Reviewed  by  Nat  Friedland 

At  S49,  the  Colortone  Keyboard  by 
Waveform  Corp.  is  not  a  tool  for  pro- 
fessional musicians.  But  nevertheless 
it  is  an  intriguing  Atari  music  device 
that  puts  a  surprising  amount  of  musi- 
cal power  and  feedback  literally  at 
your  fingertips. 

The  Colortone  is  a  recent  conver- 
sion from  a  fairly  successful  Commo- 
dore 6i  product.  As  a  matter  of  fact, 
Antic  received  its  copy  just  one  day 
after  programmer  Russ  Karras  de- 
livered the  conversion  software  to 
Waveform.  Actually  our  keyboard's 
converter  hookup  is  a  prototype  that 
dangles  exposed  on  a  spliced  cable. 

Distribution  for  this  product  is  just 
getting  set  up,  but  one  source  you 
should  be  able  to  obtain  it  from  is  the 
Protecto  mail-order  house  whose  ad- 
dress is  shown  above.  (We  recom- 
mend that  you  verify  availability  by 
phone  before  mailing  Protecto  a 
check.) 

The  Colortone  is  a  membrane  key- 
board, after  the  fashion  of  the  old 
Atari  400.  It's  laid  over  a  sturdy  plastic 
base,  but  looks  a  lot  like  those  card- 
board piano  keyboards  that  kids  in 
group  piano  classes  used  for  practic- 
ing their  fingering. 

Once  you  select  your  choices  from 
the  function  keys  at  the  top  of  the 
board,  you  will  probably  wind  up 
playing  mostly  on  the  Color  Harp 
strip  above  the  regular  piano-key 
diagram.  The  Color  Harp  gives  you 
only  the  notes  in  the  scale  you  have 
chosen,  so  you  can  fool  around  with- 
out the  risk  of  hitting  a  drastically 
wrong  note. 

June  1985 


The  Colortone  software  does  a  lot 
of  interesting  things.  You  get  a  choice 
of  seven  well  done  pop/rock  two- 
voice  accompaniments  or  a  simple 
metronome  beat.  Some  of  the  most 
common  and  effective  rock  patterns 
are  utilized,  boogie,  ballad,  etc. 

You  have  eight  instrumental  voices 
to  choose  from  and  a  variety  of  musi- 
cal scales.  You  can  also  adjust  the 
speed,  pause,  and  listen  to  playback 
of  your  solo  with  or  without  saving 
it  to  disk. 

As  you  are  playing,  the  software 
writes  out  the  musical  notation  of 
your  solo,  showing  it  above  the  bass 
accompaniment  notes.  At  the  same 
time,  it  also  tracks  your  fingering  with 
red  lights  over  a  piano  key  display. 

It  is  easy  to  sound  pretty  good  as 
you  play  along  with  the  accompani- 
ment by  tapping  or  even  rubbing  your 
fingers  over  the  color  harp.  You  can 
never  be  drastically  out  of  tune, 
although  you  are  able  to  experiment 
with  interestingly  dissonant  effects  if 
you  wish. 

A  lot  of  your  noodling  will  sound 
like  the  background  music  from  your 
favorite  videogames. 

Where  Colortone  Keyboard  even- 
tually shows  its  limitations  is  its  lack 
of  precision  at  reflecting  musical  ideas 
you  are  consciously  trying  to  play.  It's 
often  nearly  impossible  to  find  a 
specific  note  you're  looking  for  in  the 
color  harp  section.  And  the  mem- 
brane sensors  on  the  piano  diagram 
don't  respond  fast  enough  to  pick  up 
speedy  passages. 

Eventually  it  seems  that  no  matter 
what  you  try  to  do,  you  find  yourself 
repeating  a  consistent  pattern  of  chro- 
matic eighth-note  scales  as  the  accom- 
paniments pump  steadily  along. 


introduces 
DR.  P.D.  QUICK,  D.D. 

Dr.  Quick  Explains  Buying 
On  Margin,  And  Discloses 

THE  HIDDEN 
HEALTH  BENEFITS 

Of  Using  PDQ  Diskettes 

Q.  Doctor  Quick,  your  PDQ  Disks  are 
double<lensity.  Will  they  worti  In  my 
singl&<lenslty  disk  drive? 

A.  Ja.  Oh,  ja,  they  work  so  good,  I  am  telling 
you,  yes!  They  work  like  a  chum. 

Q.  Aren't  your  PDQ  Disks  t>etter  than  I  really 
need? 

A.  I  should  hop  so!  We  make  sure  it  is  better, 
not  just  this  much,  but  this  much,  and  then 
some.  Double  density,  ja,  and  48  tracks  per 
inch,  certified.  And  people  is  using  them 
right  now  at  96  TPI,  is  that  better  yet?  You 
tjetcha  my  life! 

Q.  So  why  should  I  pay  for  quality  I  don't 
need? 

A.  I  can't  believe  what  my  ears  are  telling  me! 
You  don't  know  of  the  buying  on  margin? 
You  got  always  to  buy  on  margin. 
Everything! 

Q.  Buy  on  margin? 

A.  I  am  drawing  you  a  hyperethical  case.  You 
are  going  to  put  a  steering  column  in  your 
car,  okay?  For  ten  dollars  you  can  get  one 
that  will  last  you  two,  maytie  three  years. 
Then  one  day  it  turns  to  peanut  butter 
while  you're  driving,  and  blooey! 
For  twelve  bucks,  let's  say  it,  you  can  buy  a 
steehng  column  to  last  five  years.  For  thir- 
teen fifty  you  could  get  one  to  last  24 
zillion  years,  give  or  take  a  zillion.  Which 
one  do  you  go  for? 

Q.  You're  talking  alx>ut  a  margin  of  safety, 
then. 

A.  You  got  it.  A  margin.  You  like  to  live 
dangerous,  maybe?  Go  for  the  cheapie, 
save  a  buck  or  two.  You  got  tietter  smarts 
than  that?  You  buy  on  margin  when  you 
get  a  steering  column.  Or  a  disk. 

Q.  I  see  your  point. 

A.  No,  that  is  taefore  the  point.  Now  I  tell  you 
the  point.  You  ready? 
You  buy  on  margin  and  get  Ijetter  than  you 
need;  you  smile  more,  right?  Fewer 
whnkles  in  the  forehead.  Your  food  goes 
down  nicer.  All  those  tension  backaches, 
they  go  away.  Your  doctor  looks  you  over 
and  says,  "It's  a  miracle!  I  can't  tselieve 
such  perfection  in  a  human  person!" 
So,  you  going  to  chisel?  Or  do  you  show  is 
nicht  so  empty  up  here,  and  buy  on 
margin? 

PIDQ  —  Premium  Disk  Quality  —  Diskettes  are 
Double-Sided  (yes,  they'll  work  in  your  810  Drive) 
as  well  as  Double-Density,  and  carry  a  21-year 
replacement  warranty  —  and  even  a  30-day  money- 
back  guarantee. 

AND  AN  EXTRA  VALUE!  To  introduce  our  new 
line  of  "NameBrand"  disks,  we'll  even  inscribie 
your  name  in  bright  golden  letters  on  each  disk  at 
no  cost! 

PREIVllUIVI  QUALITY  AT  A  REASONABLE 
PRICE.  NameBrand  Disks  are  $39.90  a  box  (10 
disks).  For  5  boxes  or  more:  $34.90/box. 
PLUS  AN  INTRODUCTORY  OFFER.  For 
orders  mailed  before  June  30,  1985,  deduct  $10.00 
per  box.  We're  that  sure  you'll  reorder  NameBrand 
PDQ's  once  you've  seen  them  and  tried  them! 
AND  AN  OPPORTUNITY.  With  each  order  is  in- 
cluded a  free  Opportunity  Disk.  Boot  its  program 
into  a  48K  or  64K  Atari,  and  give  some  thought  to  a 
business  of  your  own. 

Please  add  $2,00  to  your  order  for  postage  &  handl- 
ing (USA  and  Canada;  others  add  $4.00).  NYS 
residents  add  TVo  sales  tax.  Rush  your  order  to: 


Dept.  17 
13  White  St. 

Seneca  Falls,  NY  13148 
Atarf^    is  a  registered  trademark  of  Atari  Corporation 
Senecom^    is  a  registered  trademark  of  Seneca 
Computer  Company,  Inc. 
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^O  the 

^      attention 

you  deserve 


A  Receive  our  disk  based  catalog  and 
pricebook. 

A  Buy  from  people  who  specialize  in  ATARI 
exclusively. 

JL  Receive  our  8  pg.  newspapers  9  times  a 
year  filled  with  critiques,  special  tips,  and 
classified  ads. 

A  Get  at  least  25%  off  all  titles  (and  often 
more!). 

A  Receive  consistant  low  prices  and  prompt, 

knowledgeable  service. 
A  Choose  from  over  1,500  software  items. 


CompuClub 

JL  Where  Atari  owners  bi 


TM 


belong. 


[^ito,re°"  800-631-3111 

in  Mass.  call  617-879-5232 

Please  have  credit  card  number  ready! 

Or  return  this  coupon  with  $5.00* 


■       Cr 


YES,  I  want  to  be  a  preferred  customer  of 

CompuClub"     Rush  me  my  catalog  and  price 

book.  Enclosed  please  find  mv$5. 00  registration 

fee. 

Please  make  check  payable  to  Compuclub" 

Payment  enclosed     Dcheck     nmonev  order 

Bill  my  DMastercard     ovisa    Expires 

iD# 


n 


I       Gil 


Signature 

Name 

Address  _ 
City 


_  State, 


-Zip- 


Atari  Model . 


Hours:   Mon.    Fri  11,00  AM    7.00  PM  Eastern  time 
Answering  services  after  hours 
ComDuClub",  P.O.  Box  652.  Natick  ma  01760 
•Overseas  membership  $25.00  per  year 
Jf^^  Atari  -  Trademark  of  Atari  Corporation 


J 
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ATARI  COIMPUTER  HARDWARE 

ATARI  8G0XL  98,00 

ATARM200XL  58,00 

1010CASS.REC.  39.99 

DISK  DRIVES 

ATARI  1050  148.00 

INDUS  G.T,  224.00 


JK 

ATARI 


PRINTERS 

GEMINI  10X 
GEMINISG10 
STAR  POWER  TYPE 
EPSON  RX80 
EPSON  RX80  FT 
EPSON  FX80 
PROWRITER8510 
INTERFACE  CABLES 
APE  FACE 
U   PRINT 
MPP  1150 


239.99 
239.99 
319,99 
229.99 
279.99 
389.99 
319.99 

54.99 
54.99 
54.99 


ELECTRONIC 
ONE 

P.O.  Box  13428 


THE 
LOWEST 
PRICES 

THE 

BEST 

SERVICE 

CALL 


(614)864-9994 
Columbus,  Oh.  43213 


THE  LOWEST  PRICES 

ATARI     ATARI      COLECOVISION 
2600        5200        INTELLIVISION 
GAMES  GAMES       ATARI  SOFT 

ATARI  COMPUTER  SOFTWARE 


ATARI  COMPUTER  HARDWARE 


1020  COLOR  PLOTTER 
1027  LETTER 
1025  PRINTER 
1030  MODEM 

(ADV.  SOFTWARE! 
ATARI  SCIENCE  LAB 
MPP  lOOOE  MODEM 
COMMODORE  1702 
TECHIKA  COLOR  14" 
AMDEC  300  COLOR  .  . 


49.99 
238.00 
148.00 
169.99 

39.99 
108.00 
208.00 
198.00 
228.00 


SPECIAL 

NASHUA  ^'^^    OF 

GENERIC  '0 

DISK 

SINGLE  SIDE 
DOUBLE  DENSITY 
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ATARI  WRITER 

TOUCH  TYPING 

LOGO 

CONV  FRENCH 

SYNFILE 

SYNCALC 

SYN TREND  . 

EASTERN  FRONT 

PAC  MAN 

STAR  RAIDERS 

ASSEMBLE  EDITOR 

MILLIPEDE 

MOON  PATROL 

FLIGHT  SIMULATOR  II 


29  99 

9.99 

59.99 

19  99 

35  99 

35.99 

25  99 

999 

799 

7.99 

24.99 

14.99 

14.99 

34.99 


CALL  OR  WRITE  FOR  THE 
PRICE  OF  YOUR  PROGRAM. 
HOW  TO  ORDER:  CASHIER  CHECK.  MONEY  ORDER.  MASTERCARD'  or 
VISA-    (Add  4%  (or  charge  cards)  .      .   NO  PERSONAL  CHECKS  NO 

C.O.D.'s  SHIPPED  UPS 

SHIPPING:  Prompt  one  day  shipping  on  in-slock  merchandise.  Ohio  residents 
add  5.5%  sales  tax.  Add  $3.00  on  all  orders  under  SI 00  00  .      Add  $5  00  on  all 
orders  over  $100.00. 
INTERNATIONAL:  Add  15%  to  all  orders. 

CALL  OR  WRITE  FOR  FREE  CATALOG 

ELECTRONIC  ONE  *  CG 1 4J864-9994 

P.O.  Box  13428  •  Columbus.  Ohio  43213 


Software  Discounters  / 

of  America  (&  peripherals,  too!)  v^;^°*  '^  / 

For  Orders  Only  1-800-225-7638* 

Inquiries  and  PA  412-361-5291        Open  Saturday 

•  Free  shipping  on  orders  over  $100  in  continental  USA 

•  No  surcharge  for  VISA/MASTERCARD 


KimAniD  TOIXS  TABLET. 


•  Video  drawing  tool. 

•  Comes  with  Koala 
Painter®  —full  feature 
computer  graphics  program. 

•Use  the  KoalaPad  for  cursor 
control,  graphics,  or  custom 
keyboard. 

•Educational,  entertainment, 
business  software  available. 
•Alari®  on  Disk. 


Technologies  Corporation 


Lowest 

Price 

Ever 


29 


95 


"Ordering  and  Terms:  Orders  with  cashier  checis  or  money  order  shipped  im- 
mediately. Personal/company  checks,  allow  3  weeks  clearance.  No  C.O.D.'s. 
Shipping:  Continenlal  U.S.A.— Orders  under  $100  add  $3;  frse  sliipping  on  orders 
over  $100.  PA  residents  add  6%  sales  tax.  AK,  HI,  FPO-APO— add  $5  on  all  orders. 
Internalional  Order  Policy— No  Credit  Cards— add  $15  or  15%  of  order  whichever 
is  greatest.  Defective  merchandise  will  be  replaced  with  same  merchandise— NO 
CREDITS!  Return  must  have  authorization  number  (412)  361-5291.  Prices  subjeol 
to  change  without  notice. 
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The  Online  Catalog  of  Computers  and  Software 

Our  Prices  are  WHOLESALE  +  10% 

SAMPLES!!! 

Star  Micronics  SG-10  Printer  —  $261 

Atari  850  Interface  —  $1 17 

Indus  GT  Disl<  Drive  —  $234 

Olympia  RO  Daisy  Wheel  Printer  —  $332 

Atari  1050  Disk  Drive  —  $172 

Batteries  Included  Home  Pak  —  $36 

ASK  ABOUT  OUR  FREE  PRICE  LIST 
FREE  SOFTWARE  -  FREE  BULLETIN  BOARD  SERVICE 

(408)  353-1836 

We  support  the  complete  Atari  product  line. 

Instant  Shipping  (or  as  fast  as  we  can).  Mastercard  &  Visa 
accepted  {no  extra  charge).  Shipping  &  handling  add  6%. 
California  cuslomers  add  6.5%  sales  tax.  Order  by  phone 
Mon.-Fri.  -  10  a.m. -5  p.m.  PST).  Order  by  modem  daily 
6  p.m.-9  a.m.)  from  our  online  Telecalalog. 

Prices  subject  to  change  vi/ithout  notice. 

COMPUCAT 

24500  Glenwood  Hwy.,  Los  Gatos,  CA  95030 


This  is  provided  as  a  convenience  and  as  a  courtesy  to 
advertisers.  ANTIC  does  not  guarantee  accurac)'  or 
comprehensiveness. 


SPARE  PARTS  FOR 
YOUR  ATARI 


Hard  to  find  Integrated  Circuits  $5  each 
On  CPU    GTIA,  ANTIC,  CTIA, 

CPU  6502,  CPU  6511 
On  10K  OS    Math  ROM  399B,  OS  ROMs 

4998  &599B 
On  800/400  Mam    Pokey,  6520  PIA 
On  810  &  850    MPU  6507.  PIA  6532, 

RAM  6810.  ROM  C 
Field  Service  Manuals  800/400.  800XL  or    810  125  ea 
For  1050  or  1200XL  $20  ea    For  410  or  835  $15  ea 
Diagnostic  Cartridges  Computer  or  Disl^  $25  ea 


^^^xmpirtiervfsions 

(408) 554-0666 
3400  El  Camino  Real,  #1, 
Santa  Clara,  CA  95051 

Hours:  Tuesday-Friday  10am-7pm. 

Sat.  10am-5pm 
Terms:  UPS  Shipments  within  USA.  Add  $5  COD 

or  prepaid.  Calif,  Res.  add  6'A%  sales  tax. 


When  You're  Tired  of 
Just  Playing  Games! 

Have  you  given  up  trying  lo  find  a 
source  for  business  and  educational  soft- 
ware? Do  you  gel  llie  feeling  that  some  folks 
are  more  aware  of  the  latest  game  than  the 
best  word  processor  or  pre-school  program? 

H  so...  Welcome  to  Serious  Software, 
where  our  name  says  it  all. 

Our  goal  is  lo  provide  you  with  a  com- 
prehensive selection  of  the  best  business  and 
educational  materials  available  lor  the  Atari, 
backed  with  helpful,  knowledgeable  advice. 
Write  or  call  for  our  Free  Catalog. 

M.C.  and  VISA  gladly  accepted. 

Toll  Free  800-782-7007  (Oregon  479-9516) 


310  N.W.  6th  St.  Grants  Pass,  OR  97526 


HANDICARD^ 


Quick  Reference  Instructions 
for  Atari  Programs 

Now  available  for: 
ATARIWRITER* 
Beginning  BASIC 

•  Organized  commands 

•  Easy  to  read 

•  Durable  plastic  (11"  x  4  1/4") 

•  Use  on  or  off  computer 

Only  $8.95  ea.  postpaid 

(Both  for  only  $15.95  ppd.) 

NY  residents  add  sales  tax 
Dealer  Inquiries  Invited     'Trademark  of  Atari  Corp, 


Handi  Publishing  Inc. 

P.O.  Box  453 

Ardsley,  NY  10502 


BETTER'N  BIG  BEN 

Provide  your  home  computer 
the  current  time  &  date 
with  the  new  Click  Clock 
from  Dandy  Data. 
Features: 

•  Easy  installation 

plugs  into  Atari-  standard 
joystick  port 

•  Long-life  battery  power 
Click  Clock  arrives  running 

•  Sample  software  included 

•  1001  programming  uses 
Time  to  order. 

For  your  Click  Clock 
send  $45  in  payment  to: 

DANDY  DATA 

23000  SW  STAFFORD  ROAD 
TUALATIN,  OR  97062 

"Hand  Assembled  in  Oregon" 


Service  Centers,  Retailers,  to 
get  your  listing  in  Antic  call 

(iisieei-atoo 


atari  service  center 


ALABAMA 

VIDEO  REPAIR  CO, 

2009  CENTERPOINT  RD, 

BIRMINGHAM 

205-854-5212 

RAINBOW  CITY  SERVICE 

CENTER 

244  RAINBOW  PU^ZA 

GADSEN 

205-442-6810 

C  8,  R  ELECTRONICS 

704  HOLCOMBE  AVE. 

MOBILE 

205-473-3030 

BUSINESS  SERVICES 

2828  CHESTNUT  ST 

MONTGOMERY 

205-834-2290 

ARIZONA 

RICK'S  TV  8,  APPLIANCE 
1104  E   DEUCE  OF  CLUBS 
SHOW  LOW 
602-537-7625 

CALIFORNIA 

LEARNING  TREE  COMPUTER 

CTR, 

2441  N,  TUSTIN  SUITE  BCD 

SANTA  ANA 

714-667-1575 

COMPUTER  SUPPORT 

SERVICE 

52  S  LINDEN  AVE,  #1 

SOUTH  SAN  FRANCISCO 

415-589-9800 

0  &  G  COMPUTERS 

4156  MANZANITA  AVE    #200 

CARMICHAEL 

916-485-7779 

SAN  JOSE  COMPUTER 

1844-E  ALMADEN  RD 

SAN  JOSE 

408-723-2025 

B  &  C  COMPUTERVISION 

3400  EL  CAMINO  REAL 

SANTA  CLARA 

408-554-0666 

ATCOM  COMPUTERS 

1421  THOUSAND  OAKS  BLVD 

THOUSAND  OAKS 

805-497-1220 

AUTHORIZED  COMPUTER 

SERVICE 

951  W   FOOTHILL  BLVD 

UPLAND 

714-985-2101 

TESTEK 

7224  VALJEAN  AVE, 

VAN  NUYS 

818-786-6890 

COMPUTER  JUNCTION    INC 

15000  7TH  ST  SUITE  214 

VICTOflVILLE 

619-245-3622 

COLORADO 

AMERICAN  TELEVISION 

SERVICE  CO 

1226  W   LITTLETON  BLVD, 

LITTLETON 

303-795-2040 


LOOKING  GLASS 

MICROPRODUCTS 

4233  WEST  EISENHOWER 

LOVEUND 

303-669-2681 


FU)RIDA 

R  &  S  ELECTRONICS,  INC, 
3245  W,  MCNAB  RD 
FT  UUOERDALE 
305-979-6763 

BOUROUE'S  ELECTRONIC 

SERVICE 

180  RICHPIEN  RD 

FT,  WALTON  BEACH 

904-862-3346 

MR,  SOFTWARE 

101  HOLLYWOOD  FASHION 

CENTER 

HOLLYWOOD 

305-981-9090 

ENTERTAINMENT  SERVICES 

ELECT 

811  EDGEWOOD  AVE,  S, 

JACKSONVILLE 

904-786-1305 

COMPUTER  IMAGE 

10061  SUNSET  DR, 

MIAMI 

305-271-1224 

COMP-U-PHONE 

6160  EDGEWATER  DR, 

SUITE  E, 

ORLANDO 

305-291-1712 

GEORGIA 

GOODWINS  ELECTRONICS 
JUNCTION  SHOPPING  CENTER 
'ALBANY 
912-435-9605 
NORMAN'S  ELECTRONICS, 
INC, 

4014  PEACHTREE  RD  NE 
ATLANTA 
404-237-3349 

ELECTRONIC  SPECIALISTS 

1685  EDNA  PLACE 

MACON 

912-742-5628 

RADIOS  AND 

MICROCOMPUTERS  INC 

3833A  WASHINGTON  RD 

MARTINEZ 

404-863-9071 

HARRIS  TV 

1  E    MONTGOMERY 

CR0SSRC40 

SAVANNAH 

912-927-2084 

HAWAII 

KDNA  COMPUTER 
75-5706  HANAMA  PL   #107 
KAILUA-KONA 
808-329-8574 

ILLINOIS 

DIGITAL  WORLD,  INC 
711  ARMY  TRAIL  RD 
ADDISON 
312-543-9000 


OMEGA  ENTERPRISES 
7823  N,  2ND  ST 
ROCKFORD 
816-282-1477 

INDIANA 

WRIGHT  ELECTRONICS 
614  N    MAIN  ST 
EVANSVILLE 
812-423-2845 

CITIZEN'S  TV  8.  VIDEO 

827  W,  GLENPARK  AVE, 

GRIFFITH 

219-924-0047 

THE  COMPUTER  CORNER 

7101  BROADWAY 

MERRILLVILLE 

219-738-3282 

KANSAS 

MIDWEST  APPLIANCE 

SERVICE 

METCALF  SOUTH  MALL 

OVERLAND  PARK 

913-341-6688 

KENTUCKY 

FACTORY  ELECTRONICS 
2422  PALUMBO  DR, 
LEXINGTON 
606-269-7341 
VANOVER  TV  HOSPITAL 
2027  CUMBERLAND  AVE, 
MIDDLESBORO 
606-248-3827 

LOUISIANA 

COMPUTER  ELECTRONICS 
1955  DALLAS  DR 
BATON  ROUGE 
504-924-8066 

MASSACHUSETTS 

CUSTOM  ELECTRONICS 

238  EXCHANGE  ST 

CHICOPEE 

413-592-4761 

BEACON  TV-ELECTRONICS 

8  TILESTON  ST 

EVERETT 

617-389-8600 

CONDOR  SERVICE 

372  SOUTH  MAIN  ST 

SHARON 

617-784-2382 

ROCOM,  INC 

184  MAIN  ST 

WAREHAM 

617-295-2542 


MARYUND 

NATIONAL  BUSINESS  8, 

SECURITY 

8639  LOCH  RAVEN  BLVD 

BALTIMORE 

301-665-8870 

EDGEWOOD  TV  8,  AUDIO 

4932  EDGEWOOD  RD 

COLLEGE  PARK 

301-441-9116 


CROFTON  TV  &  VIDEO 

SERVICE 

2217  DEFENSE  HWY 

CROFTON 

301-721-1700 

COMPUVISION  COMPUTER 

CENTER 

6445  BURWOOD  PL, 

GLEN  BURNIE 

301-850-4055 

ADVANCED  COMPUTER 
SERVICE  CO, 
287  E  GREEN  ST 
WESTMINSTER 
301-876-8202 

MAINE 

AUTOMATIC  SERVICES 

22  TARGET  INDUSTRIAL 

CIRCLE 

BANGOR 

207-942-6769 

J,D  ELECTRONICS 

385  STEVENS  AVE 

PORTLAND 

207-775-1411 

MICHIGAN 

FUTURE  DIRECTIONS 
1520  N,  VAN  DYKE 
BAD  AXE 
517-269-7211 

THE  FAMILY  COMPUTER 

CENTER 

3895  W   12  MILE  RD 

BERKLEY 

313-543-0520 

CHASE  TRANSISTOR  SERVICE 

521  LEONARD  ST  NW 

GRAND  RAPIDS 

616-454-9000 

ABL  ELECTRONIC  SERVICE, 

INC, 

32  E    14  MILE  ROAD 

MADISON  HEIGHTS 

3I3-58S-6663 

SOLID  STATE  SERVICE 

548  SHATTUCK  RD, 

SAGINAW 

517-752-0606 

MINNESOTA 

PHILIPS  COMMUNICATIONS 

&TV 

748  N,E    HARDING  ST 

MINNEAPOLIS 

612-378-7200 

USER  FRIENDLY  COMPUTER 

8465  PLAZA  BLVD 

SPRING  LAKE  PARK 

612-786-8181 


MISSOURI 

SOUTHLAND  ELECTRONICS 

22  E    OLIVE  DR, 

AURORA 

417-678-4623 

MIDWEST  APPLIANCE 

SERVICE 

METRO  NORTH  MALL 

KANSAS  CITY 

816-436-7010 


COMMUNITY  SOUND  &  VIDEO 
1834  S,  STEWART 
SPRINGFIELD 
417-887-3391 

A  8,  E  ELECTRONICS  CORP 
2001  BIG  BEND  BLVD 
ST  LOUIS 
314-645-7733 

J  &  S  VIDEO  VISIONS 

1051  WASHINGTON  SQUARE 

CENTER 

WASHINGTON 

314-239-2677 

MISSISSIPPI 

ELECTRONIC  SERVICES 
2315  25TH  AVE 
GULFPORT 
601-863-3772 

NORTH  CAROLINA 

SOUTHERN  PHOTO 
TECHNICAL  SVCE 
2610  SOUTH  BLVD 
CHARLOTTE 
704-523-0012 

NEW  JERSEY 

DEPENDABLE  PARTS,  INC 

168  MAIN  ST 

CHATHAM 

201-635-5888 

S  R  DATA 

2141  WOOOBRIDGE  AVE 

EDISON 

201-985-5017 

ADVANCED  ELECTRONICS 

VILLAGE  SHOPPING  CENTER 

RT206 

FLANDERS 

201-584-1252 

TELSAR  ELECTRONIC 

SERVICES,  INC 

829  STONE  RD, 

LAUREL  SPRINGS 

609-783-8500 

VIDEO  ELECTRONICS 

COMPUTER  SVC 

1418  ROSELLE  ST 

LINDEN 

201-925-1418 

VIDEO  CONNECTION  OF 

SOMERSET 

900  EASTON  AVE 

SOMERSET 

201-545-8733 

K  &  S  ELECTRONICS 

119  HAMILTON  BLVD 

SOUTH  PLAINFIELD 

201-755-4204 


NEW  YORK 

ISLAND  VIDEO  COMPUTER 

SERVICE 

35  MIDDLE  COUNTRY  RD 

CORAM 

516-736-1001 

AARDVARK  ELECTRONIC 

SERVICE 

44  CASTLE  ST 

GENEVA 

315-789-5295 


LONG  ISUND  COMPUTER 

GENERAL 

103  ATWNTIC  AVE, 

LYNBROOK 

516-887-1500 

ABC  ELECTRONICS  SERVICE 

CO 

392  THURSTON  RD, 

ROCHESTER 

716-328-1840 

OHIO 

ARJAV  MICRO 
1385  BETHEL  RD 
COLUMBUS 
614-459-4219 
STATION  FUN  TV  INC 
206  CLINTON  ST 
DEFIANCE 
419-782-8545 

COMPUTER  CREATIONS 
424  E,  STROOP  RD 
KEHERING 
513-294-0222 

B  AND  G  ELECTRONICS.  INC 

15729  MADISON  AVE 

LAKEWOOD 

216-521-2855 

ERIC  MARTIN'S,  INC, 

5485  WARRENSVILLE  CENTER 

RD 

MAPLE  HGTS 

216-663-2032 

VIDEO  COMPUTER  WORLD 

INC    , 

2223  WOODVILLE  RD 

OREGON 

419-691-7282 

DODD  CO, 

7795  W  RIDGEWOOD  DR, 

PARMA 

216-886-2828 

OREGON 

NORTHWEST  COMPUTER 

SUPPORTING 

10200  SW  NIMBUS  G-! 

PORTLAND 

503-684-3280 

PENNSYLVANIA 

KIBLER'S  INDEPENDENT  TV 
526  FALLOWFIELD  AVE 
CHARLEROI 
412-483-7484 

PARK  T  MORROW,  INC, 

627  W   26TH  ST 

ERIE 

814-455-7566 

DEBUG  BYTES  COMPUTERS 

662  PHIUDELPHIA  ST 

INDIANA 

412-349-7290 

GRUSS  ELECTRONIC  REPAIR 

HILLS  PLAZA 

JOHNSTOWN 

814-266-1395 

TESCD  INC 

9237  ROOSEVELT  BLVD 

PHILADELPHIA 

215-677-5000 
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ANTIC,  The  Atari  Resource 


M  atari  service  center 


NATIONAL  TELEVISION 

HOUSE  OF  TELEVISION 

UTAH 

ARTICULATE  SYSTEMS 

SERVICE 

601  SOUTH  DULUTH  AVE 

INTERWEST  ELECTRONICS 

E  9405  SPRAGUE  AVE 

5461-63  PENN  AVE 

SIOUX  FALLS 

CORP 

SERVICE  CTR 

PITTSBURGH 

605-338-9051 

4091  SOUTH  STATE  ST 

SPOKANE 

')12-361-5400 

TENNESEE 

SALT  LAKE  CITY 

509-922-0255 

BOYD  TV 

HI-FI  SERVICE  CENTER 

801-266-5301 

JOHNSON'S  TELEVISION 

719  LANCASTER  AVE 

4608  HIXSON  PIKE 

VIRGINIA 

SERVICE 

V\(AVNE 

CHATTANOOGA 

SALEM  COMPUTER  CENTER 

N  4424  WALL 

615-877-6781 

4034  PLANK  RD 

SPOKANE 

RHODE  ISLAND 

BILL'S  TV,  SALES  &  SERVICE 

FREDERICK 

509-327-9566 

VIDEO  ENCOUNTERS 

3843-C  DICKERSON  RD 

703-786-8126 

MAINES  SHOPPING  CENTER 

NASHVILLE 

VIDEO  UNLIMITED  SERVICE 

WAKEFIELD 

615-865-5000 

CENTER 

AUTHORIZED  TV 

401-783-3460 

1707  ROUTE  17 

810  NINTH  ST 

TEXAS 

GRAFTON 

GREEN  BAY 

SOUTH  CAROLINA 

TV  CENTER 

804-898-5318 

414-499-4215 

ELECTRONIC  SERVICE  CO 

202  S  WILLIS 

L  &  Y  ELECTRONICS 

DAN'S  CITY  WIDE  TV 

1736  DECKER  BLVD 

ABILENE 

13670  JEFFERSON  DAVIS 

1259  E,  JOHNSON  ST 

COLUMBIA 

915-677-1171 

HWY 

MADISON 

803-782-2705 

PACIFIC  STEREO 

WOODBRIDGE 

608-265-4144 

COASTAL  TV  &  APPLIANCE 

525  113TH  ST 

703-494-3444 

MISTER  TV  SERVICE 

CO 

ARLINGTON 

5455  W,  BURLEIGH  ST 

603  HWY  501 

817-640-3094 

WASHINGTON 

MILWAUKEE 

CONWAY 

LONGS/ENTRONIX 

ON  LINE  COMPUTERS  PLUS 

414-873-2415 

803-248-2686 

5800  MAPLE  AVE 

13710  NE  20TH  ST 

DALLAS 

BELLEVUE 

WEST  VIRGINIA 

SOUTH  DAKOTA 

214-358-3222 

206-644-2080 

COMPUTERS  PLUS,  INC 

TAYLOR  AUDIO-VISUAL,  INC, 

COMPUTER  HOME,  INC 

BUTLER'S  TV  &  COMPUTER 

2077  CHARLESTON  TOWN 

1009  DAKOTA  S 

3548  KNICKERBOCKER 

SERVICE 

CENTER 

HURON 

SAN  ANGELO 

28717  PACIFIC  HWY  SOUTH 

CHARLESTON 

605-352-3205 

915-944-9795 

FEDERAL  WAY 
206-941-9096 

304-342-4848 

PARTS/SERVICE  FOR  ATARI  COMPUTERS 

FLAT  SERVICE  RATES  BELOW  INCLUDE  PARTS  AND  LABOR 
60  DAY  WARRANTY 

800  Computer  Repair $65.00     800XL  Computer  Repair $67.50 

400  Computer  Repair $47.50     810  Disk  Drive  Repair $79.50 

600XL  Computer  Repair $65.00     850  Interface  Repair $60.00 

I200XL  Computer  Repair $65.00     1050  Disk  Drive  Repair $85.00 

Above  units  repaired  or  exchanged  v^/ith  rebuildabie  exchange. 
Include  $7.00  return  shipping  and  insurance. 


INTEGRATED 
CIRCUITS 

GTIA  Chip         COUeOS 

upgrade  with  inscructions  ,  ,  ,  SI  1.50- 

■  OK  rev.  "B"  O.5.  Upgrade  , . , 

3  chip  rom  set  with  instructions  .  ,  .  $12.50 
Pokey  Chip  .,  ,  C0I2294  ,,.  J8.50 
Antic  Chip  ,  .  ,  CO  1 2296  .  , ,  $10,00 
PIAChip  ,,.  COI'1795  .,.  $11.00 
CPU  Chip  ,,,  COM806  ,.,  $12,50 
Basic  ROM  set  ,  .  ,  $13.00 


REPLACEMENT/ 
BACK  UP 
BOARD  SETS 


800    .       OK 

800  .,  ,  -tSK 
400  ..  .  OK 
810  Boai-d  Set 
810  Mech  ,  ,  , 


,  ,  S72.S0 

, .  .  $125,00 
.  ,  ,  $52.50 
.,,  $110.00 
$85,00 


All  Boards  Complete  VYith  IC's  Etc. 
Keyboards  not  included. 
Overseas  customers  ,  , .  ask 
for  PAL  price  list. 


MISC. 


MODULES/CIRCUIT 

BOARDS...complete  with  IC's 
1 6K  Ram  Memory  Module  ,  ,  , 
0X853  .    .  S24.50 
800  lOK  Rev.  "B"  OS.  Module  .  ,  ,  $18.50 

800/400  CPU  Board  with  GTIA  . . .  $24.50  ^'^  '^^''  Board/Analog  Board  Upgrade 

800  Main  Board  ,  ,  ,  $28,50  ™*  10  pin  jumper  and  instructions  ,  ,  ,  $39,50 

400  Main  Board  ,  .  ,  $26,50  editor  Assembler         S29.95 

400  Main  Board  W/O  IC'S  ,  ,  ,  $8,50  ^^''^  Cartridge  W/O  Case,  Manual  ,,.  $23,50 

800  Power  Supply  Boani  ,  ,  ,  $10.50  Cartridge  Circuit  Boarts         $4.00 

810  Data  Separator  Board  ,  .  ,  Non-Atari  Cartridge  Boards          $2,00 

upgrade  with  instructions  .  ,  ,  S25.0O  Non-Atari  power  transformer  ,  .  ,  $16,50 

810  Side  Board  W/O  Sep,  &  1771   ,  , ,  $43.50  ^ams  Repair  Manual 

810  Rear  Power  Boarti  ,  ,  ,  $25,00  '°'-  800  or  400  ..  ,  $17,50  EA, 

810  AnaloE  Board  ,  ,  ,  $16.00  ^00  Keyboard  Repair  , ,  ,  $35,00 

DeRe  Atari  ...  $12.50 

AMERICAN  TV  PHONE  41 5-352-3787 

Mail  Order  &  Repair  Address  ...  1 5338  Inverness  St.,  San  Leandro,  CA  94579. 

Retail  Store         1988  Washington  Ave,,  San  Leandro  CA  94577 

Terms;  We  accept  money  orders,  personal  checks  or  COD  VISA/Mastercard  OK  on  orders  over 

S25.00.  No  pereonal  checks  on  COD, 

Shipping:  $4.00  Shipping  and  handling  on  orders  under  $150,00,  Add  12,00  for  COD  orders,  CA 

res,  include  6-1/2%  sales  tax.  Overseas  shipping  extra. 

Prices  subject  to  change  without  notice.  We  reserve  the  right  to  limit  qtianlities.  Sales  limited  to 

stock  on  hand.  Much  More!  Send  5ASE  for  free  price  list. 

Repair  and  upgrade  services  available    .    Call,         'Atari  is  a  registered  trademark  of  Atari,  Inc. 


June  1985 


Next  Month 

COMPUTER 
CHALLENGES 

#  Battle  Of  The 
Chess  Programs 

#  Coverage  Of  Atari 
Meeting  At  Antic 

#  Inside  Strategic 
Simulations  Inc. 

^    Another  Mind- 
Boggling  Cover 
By  Okamoto 


RASCAL 

For  the  Atari 

kyan  pascal  is  the  most  complete  package  available  for  learn- 
ing and  using  the  Pascal  language.  And  now,  it's  available  for 
the  Atari  family  of  computers. 

kyan  pascal  is  easy  to  use.  lightning  fast,  and  loaded  with  fea- 
tures It's  a  full  Pascal  implementation  and  perfect  for  both  be- 
ginning and  advanced  programmers, 

kyan  pascal  features: 

•  Optimized  Machine  Code  Compiler; 

•  Built-in  Full  Screen  Text  Editor; 

•  String-Handling,  Chaining,  Include  File,  and  Other 
Powerful  Extensions; 

•  13-Digit  Arithmetic  Precision  and  Full  Graphics 
Support. 

•  Built-in  Assembler  (Allows  Full  Hardware  Control);  and, 

•  Tutorial  IVIanual  with  Sample  Programs, 

kyan  pascal  requires  48K  of  memory  and  a  single  disk  drive. 
No  additional  hardware  is  necessary  And,  It  comes  with  kyan's 
MONEY  BACK  GUARANTEE . , ,  If  not  completely  satisfied, 
return  it  within  15  days  for  a  full  refund. 
kyan  pascal  for  the  Atari $69.95 

(Add  $1  M/copy  for  h.indlmg  $1?  00  outside  Notlh  America  Calilotra,! 
MJSidents  add  $4  bb/copy  lot  sales  lax) 

Send  Check/Money  Order  to:  kyan  software.  Dept  N 
Call:  (415)  775-2923  ftSfL,^  1850  Union  St  ,  Ste,  183 
MC/Visa  Accepted        '      ^tS^     San  Francisco,  CA  94123 
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new  products 


AERO  mmi^^^m^^H^m 

(printer) 

Alphacom 

2323  South  Bascom  Ave. 

Campbell,  CA  95008 

(408)  559-8000 

S249.95 

Described  as  an  Epson-compatible  dot- 
matrix  printer,  the  Aero  is  rated  at  130 
cps.  It  uses  a  6x9  matrix  field,  con- 
tains a  2K  buffer  and  supports  (all  on 
the  same  line)  superscript,  subscript, 
double  strike,  enlarged  and  emphasized 
print  and  underlining. 


PLUS  WRITER  I 

(printer) 

Alphacom 

2323  SO.  BASCOM  Ave. 

Campbell,  CA  95008 

(408)  559-8000 

S399 

Alphacom  claims  this  new  20 
character-per-second  daisywheel 
printer  is  the  perfect  printer  for  your 
Atari.  Plugging  directly  into  your  Atari, 
the  PlusWriter  emulates  the  Diablo  630 
and  uses  standard  ribbons  and  daisy- 
wheels.  We  are  told  that  tlie  printer 
supports  superscript,  subscript, 
boldface,  proportional  spacing  and 
underlining. 


New  Products  notices  are  compiled  by  the 
Antic  staff  from  information  provided  by 
the  products'  manufacturers.  Antic  wel- 
comes such  submissions,  but  assumes  no 
responsibility  for  the  accuracy  of  these 
notices  or  the  performance  of  the  prod- 
ucts listed. 


GE  3-8100  PRINTER 
GE  PRINTER 
INTERFACE  MODULE  I 

(printer  and  interface) 

General  Electric  Company 
Electronics  Park 
Syracuse,  NY  13221 
(315)  456-2446 

S  299.95  (printer) 
S 89.95  (interface) 

GE's  foray  into  the  home  computer 
market  includes  a  dot-matrix  printer 
capable  of  "letter  cjuality"  print  at  25 
cps  or  reguUu-  draft  printing  at  50  cps. 

The  interface  will  connect  the 
printer  direcdy  to  an  Atari. 

QUESTBUSTERS  I^B^IHIH 

(adventure  newsletter) 
202  Elgin  Court 
Wayne,  PA  19087 
S15/year 

This  monthly  adventure  game  newslet- 
ter covers  recent  news,  reviews,  and 
the  like.  It  is  not  Atari-specific. 


WIRE  TREE  PLUS  I 

(line  filter) 

Networx 

203  Harrison  Place 

Brooklyn,  NY  11237 

(718)  821-7555 

S99.95 

This  surge/spike  filter  not  only  protects 
electrical  lines  for  computers  and 
peripherals,  but  also  protects  two 
modular  phone  lines  (providing  exactly 
the  kind  of  filtering  and  protection  the 
Atari  1030  modem  doesn't  have). 

Q-MODEM  ^^mi^^mi^m 

(modem) 

Quantum  Microsystems  Inc. 

PO.  Box  179 

Liverpool,  NY  13O88 

(315)  451-7747 

S149.95 

A  300-baud  direct  connect  modem 
with  autodial,  autoanswer  and  other 
advanced  features,  the  Q-Modem  plugs 
directly  into  your  Atari  and  fits  in  the 
palm  of  your  hand.  It  even  comes 
with  the  famous  QuanTerm  software, 
which  uses  color  displays,  on-screen 
menus,  a  built-in  editor,  multiple  buf- 
fers and  so  on. 

Return  the  favor.  When  you  call  a 
manufacturer  or  supplier  about  a 
product  you  've  seen  advertised  or  other- 
wise mentioned  in  ANTIC,  please  tell 
them  so.  This  will  help  us  to  continue  to 
bring  you  the  latest  information  about 
products  that  will  make  your  Atari  com- 
puter an  even  more  valuable  investment 
in  the  future  —ANTIC  ED  Q 
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ANTIC,  The  Atari  Resource 


Turbo  charce  your  Atari 
with  an  Indus  GT." 


IntrodLicing  the  all-new  Indus  GT™  disk 

drive.  The  most  advanced,  most  com[Dlete,  most 

handsome  disk  drive  in  the  world. 

A  llick  ot  its  "Power"  switch  can  turn  \'our  Atari 
into  a  Ferrari. 

Looks  like  a  Ferrari. 

The  Indus  CjT  is  only  2.65"  hii^h.  [3ut  und(>r  its 
tront-loading  tront  end  is  slimline  ent^ineerini^ 
with  a  distinctive  European-C^ran  flair. 

Touch  its  LED-lit  CommandPost™  function  con- 
trol .'\c  ( LiTouch"^^  buttons.  Marvel  at  how  res|X)n- 
sive  it  makes  everv  Atari  homt>  c omf^uter. 

Drives  like  a  Rolls. 

Neslk>d  into  its  s()und|.:)r(x.'ifed  c  hassis  is  the 
C]Liit>tc>st  ,mk\  most  powerful  disk  drive  power  s\s- 
tem  mone\'  can  buy.  At  t0|")  spec^l,  it's  Mrtually 
unhtvirable.  Whis|)er  cjuiet. 

Flat  out,  the  C]T  will  drive  your  Atari  trac  k-to- 
track  ()-.39  in  less  than  one  second.  And  when 
you  shift  into  SynchroMesh  DataTransfer,"'^  vou'll 
increase  your  Atari's  baud  rate  an  incredible 
4D07c .  (Faster  than  any  other  Atari  system  drive.) 

And,  included  as  standard  ec|uipment,  each 
comes  with  the  exclusive 
CjT  DrivingSystem™of 


software  programs.  World-class  word  processing 
is  a  l)reeze  with  the  GT  Estate  WordProcessor.™ 
And  \'our  deakv  will  describe  the  two  additional 
programs  that  allow  CiT  owncMs  to  accelerate  their 
compLiter  driving  skills. 

Also,  the  Indus  CiT  is  c  o\'(>rtxl  with  the  GT 
PortaGase!^^  A  stvlish  c  ase  that  convenientiv  dou- 
blets as  a  8()-disk  storage^  I'lle. 

Parks  like  a  Beetle. 

The  CiT's  small,  sl(>ek,  condensed  size  makes  it 
(.>as\-  to  park. 

So  see  and  test  drive  the  incredilole  new 
Indus  C]T  at  your  nearest 
computer  dealer  soon. 

The  drive  will  be 
w(>ll  worth  it. 


INDUS 


The  all-new  Indus  GT  Disk  Drive. 

I hf  most  ,ich;iin  vd.  most  hdnctsoim'  disk  drive  in  llw  world. 


I  or  ,ul(liliiin,ll  inliirni.itMin,  i  ,lll  (i  1»   KHJ-'H>OII 

c    I'lIU  liuUisS\>,li.ni^iHI)4  niviin.i;  Ammiuc.  C  h.iKuiirlh.  (   \  •)  I  ill    1  hr  Inilu^  C  IT  i 
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ONLY 

$149.95 


SOPHISTICATED  SMART  TERMINAL 
SOFTWARE  ON  CARTRIDGE 

FEATURES: 

nSupports  XMODEM  Protocol 

DASCII/ATASCIi  Translation 

n  Allows  Transfer  of  Files  Larger  than  Memory 

D  Upload /Download  of  Text  and  Programs 

niOO%  Machine  Language 

n  Loads  a  65  Column  Screen  Driver 

DMultiple  Buffers 

DOff-Line  Editing 

nVariable  Baud  Rate 

nParity  Options 

DFull/Half  Duplex 


Atari  and  CompuServe  DemoPak  are  trademarks  of  Atari  Corp.  and  CompuServe. 


[Mm 


\MMM  [MdtOsf  DEftiPffexgd 

Works  with  Atari, 400,  800,    . 
600XL  and  800XL 

TM 

I  Replaces  Atari  850  Interface 

Module  .        • 

ICompatible  with  all  software 

1 5-foot  cable  with  Centronics 
plug  (connpatible  with  Epson, 
NEC,  Prowriter,  etc.) 

I  Connects  to  serial  bus  on 
computer 

1 2  Year  Warranty 


Auto  Answer/Auto  Dial 
Direct  Connect  to  Phone  Line 

TM 

No  Atari  850  Interface 
Module  Needed 
Includes  AC  Adapter/ 
Power  Supply 

Free  CompuServe  DemoPal<" 
1  Year  Warranty 
Connects  to  Joystick  Port 
Works  on  ALL  Atari  Computers 


JD    n 
fflDCfSOiDfS  (PISPKlllg^lL  (^(S@WCifl 

225  Third  Avenue,  SW  •  Albany,  OR  97321 
0  R  DERS :  1  -800-624-7532 
CUSTOMER  SERVICE:1-503-967-9075 


t 


